fact: Record lnatTrans := mkLnatTrans { lnt_map :> forall {A}, D⦅F A;G A⦆ ; lnt_lnatural : forall {A B} (f : C⦅A ; B⦆), lnt_map ∙ lofmap F f ⪷ lofmap G f ∙ lnt_map }.
imports: Coq(Morphisms) Relational(OrderEnrichedCategory) Mon(SPropBase) mathcomp(all_ssreflect boolp) Crypt(Axioms)