# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1388917792 -32400
# Node ID c0439b11c7e78ae19b77fa41155806ff41559418
# Parent  e213595b845e9ead5edec89ac82a5f0833a29379
on going...

diff -r e213595b845e -r c0439b11c7e7 freyd.agda
--- a/freyd.agda	Sun Jan 05 19:16:18 2014 +0900
+++ b/freyd.agda	Sun Jan 05 19:29:52 2014 +0900
@@ -42,6 +42,10 @@
 
 initialFromPreInitialFullSubcategory : {c₁ c₂ ℓ : Level} (A : Category c₁ c₂ ℓ)
       (F : Functor A A ) ( FMap← : { a b : Obj A } → Hom A (FObj F a) (FObj F b ) → Hom A a b )
+      -- ( lim : ( Γ : Functor I A ) → { a0 : Obj A } { t0 : NTrans I A ( K A I a0 ) Γ } → Limit A I Γ a0 t0 ) -- completeness
       (SFS : SmallFullSubcategory A F FMap← ) → 
       (PreInitialSmallFullSubcategory A SFS ) → { i : Obj A } → HasInitialObject A i
-initialFromPreInitialFullSubcategory A F  FMap← SFS PI = {!!}
+initialFromPreInitialFullSubcategory A F  FMap← SFS PI {i} = record {
+      initial = {!!} ; 
+      uniqueness  = {!!}
+    }