fact: Record enriched_cat := mkEnrichedCat { ec_Obj :> Type ; ec_Hom : ec_Obj -> ec_Obj -> C where "⟦ X ; Y ⟧" := (ec_Hom X Y) ; ec_id : forall A, C⦅cc_one _;⟦A;A⟧⦆ ; ec_comp : forall {X Y Z}, C⦅⟦Y;Z⟧⨰⟦X;Y⟧;⟦X;Z⟧⦆ ; ec_law1 : forall {A B}, ec_comp ∙ ⟪Id _|ec_id _ ∙ !1⟫ ∼ Id ⟦A;B⟧ ; ec_law2 : forall {A B}, ec_comp ∙ ⟪ec_id _ ∙ !1|Id _⟫ ∼ Id ⟦A;B⟧ ; ec_law3 : forall {X Y Z W}, ec_comp ∙ (Id _ ⨰r ec_comp) ∼ ec_comp ∙ (ec_comp ⨰r Id _) ∙ assoc ⟦Z;W⟧ ⟦Y;Z⟧ ⟦X;Y⟧ }.
imports: Coq(ssreflect ssrfun) Coq.Classes(RelationClasses Morphisms) Relational(Category)