fact: Hypothesis (laxUnitPres' : forall A : I, (paste smAlpha' smBeta' A ∙ lofmap (strict2laxFunc KC) (ord_relmon_unit (relMon_fromLeftAdj J1 (ord_functor_comp Lflat J1) R1 (Chi_RJLflat_1)) A)) ∙ chi A ⪷ ord_relmon_unit (relMon_fromLeftAdj J2 (ord_functor_comp Lflat J2) R2 Chi_RJLflat_2) A).
imports: Coq(Relation_Definitions) Relational(OrderEnrichedCategory) Mon(SPropBase) mathcomp(all_ssreflect boolp) Crypt(Axioms OrderEnrichedRelativeAdjunctions LaxFunctorsAndTransf LaxMorphismOfRelAdjunctions)