fact: Record functor : Type := {fctr_ob :> Ob C1 -> Ob C2; fctr_morph : forall a b : Ob C1, MAP (Hom a b) (Hom (fctr_ob a) (fctr_ob b)); im_of_id_prf : forall a : Ob C1, Equal (fctr_morph a a (Hom_id a)) (Hom_id (fctr_ob a)):Prop; distrib_prf : forall (a b c : C1) (fa : Hom a b) (fb : Hom b c), Equal (fctr_morph a c (Hom_comp a b c (couple fb fa))) (Hom_comp (fctr_ob a) (fctr_ob b) (fctr_ob c) (couple (fctr_morph b c fb) (fctr_morph a b fa)))}.
imports: Categories