fact: Record leftAdjunction (lad_I : ord_category) := mkLeftAdjunction { lad_D : ord_category ; lad_C : ord_category ; lad_J : ord_functor lad_I lad_C ; lad_L : ord_functor lad_I lad_D ; lad_R : ord_functor lad_D lad_C ; lad_strucIso : leftAdjunctionSituation lad_J lad_L lad_R }.
imports: Relational(OrderEnrichedCategory) Mon(SPropBase) mathcomp(all_ssreflect boolp) Crypt(Axioms OrderEnrichedRelativeAdjunctions LaxFunctorsAndTransf)