Mercurial > hg > Members > kono > Proof > category
diff freyd.agda @ 695:7a6ee564e3a8
fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 13 Nov 2017 13:31:35 +0900 |
parents | 984518c56e96 |
children |
line wrap: on
line diff
--- a/freyd.agda Mon Nov 13 12:39:43 2017 +0900 +++ b/freyd.agda Mon Nov 13 13:31:35 2017 +0900 @@ -48,7 +48,7 @@ initialFromPreInitialFullSubcategory : {c₁ c₂ ℓ : Level} (A : Category c₁ c₂ ℓ) (comp : Complete A A) (SFS : FullSubcategory A ) → - (PI : PreInitial A (FSF SFS )) → IsInitialObject A (limit-c comp (FSF SFS)) + (PI : PreInitial A (FSF SFS )) → HasInitialObject A (limit-c comp (FSF SFS)) initialFromPreInitialFullSubcategory A comp SFS PI = record { initial = initialArrow ; uniqueness = λ {a} f → lemma1 a f