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