fact: Definition make_kleisli_triple_on_functor {C D : category} {MC : kleisli_triple C} {MD : kleisli_triple D} {F : C ⟶ D} (MF : ∏ (X : C), z_iso (MD (F X)) (F (MC X))) (MFunit : ∏ (A : C), #F (unit_kt MC A) = unit_kt MD (F A) · MF A) (MFbind : ∏ (A B : C) (f : A --> MC B), #F (bind_kt MC f) = inv_from_z_iso (MF A) · bind_kt MD (#F f · inv_from_z_iso (MF B)) · MF B) : kleisli_triple_on_functor MC MD F := (MF,, MFunit,, MFbind).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.whiskering UniMath.CategoryTheory.opp_precat UniMath.CategoryTheory.DisplayedCats.Core UniMath.Bicategories.Core.Examples.BicatOfUnivCats UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Core.AdjointUnique UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.DispAdjunctions UniMath.Bicategories.DisplayedBicats.DispInvertibles UniMath.Bicategories.DisplayedBicats.DispUnivalence