fact: Record category : Type := {Ob :> Type; Hom : Ob -> Ob -> Setoid; Hom_comp : forall a b c : Ob, MAP (cart (Hom b c) (Hom a b)) (Hom a c); Hom_id : forall a : Ob, Hom a a; Hom_comp_assoc_prf : Hom_comp_assoc Hom_comp; Hom_comp_unit_l_prf : Hom_comp_unit_l Hom_comp Hom_id; Hom_comp_unit_r_prf : Hom_comp_unit_r Hom_comp Hom_id}.
imports: Cartesian