fact: Definition make_kleisli_cocone_mor {q₁ q₂ : kleisli_cocone} (f : q₁ --> q₂) (α : mor_of_kleisli_cocone q₁ · f ==> mor_of_kleisli_cocone q₂) (p : (_ ◃ α) • cell_of_kleisli_cocone q₂ = lassociator _ _ _ • (cell_of_kleisli_cocone q₁ ▹ _) • α) (Hα : is_invertible_2cell α) : kleisli_cocone_mor q₁ q₂ := f ,, α ,, p ,, Hα.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Core.TransportLaws UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Core.Examples.OpMorBicat UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.Examples.MonadsLax