fact: Record lnatIso := mkLnatIso { lni_trans :> lnatTrans F G ; lni_invTrans : lnatTrans G F ; lni_rightinv : forall {A}, (lnt_map _ _ lni_trans) ∙ (lnt_map _ _ lni_invTrans) = Id (G A) ; lni_leftinv : forall {A}, (lnt_map _ _ lni_invTrans) ∙ (lnt_map _ _ lni_trans) = Id (F A) }.
imports: Coq(Morphisms) Relational(OrderEnrichedCategory) Mon(SPropBase) mathcomp(all_ssreflect boolp) Crypt(Axioms)