fact: Record lord_functor : Type := mkLordFunctor { lofmapObj :> C -> D ; lofmap : forall {A B}, C⦅A;B⦆ -> D⦅lofmapObj A;lofmapObj B⦆ ; lofmap_proper : forall A B, Proper (@ord_cat_le C A B ==> @ord_cat_le D _ _) lofmap ; lord_functor_law1 : forall A, lofmap (Id A) ⪷ Id _ ; lord_functor_law2 : forall (X Y Z: C) (g : C⦅X;Y⦆) (f:C⦅Y;Z⦆), lofmap (f ∙ g) ⪷ (lofmap f) ∙ (lofmap g) }.
imports: Coq(Morphisms) Relational(OrderEnrichedCategory) Mon(SPropBase) mathcomp(all_ssreflect boolp) Crypt(Axioms)