fact: Definition make_kleisli_cocone {x : B} (f : z --> x) (γ : h · f ==> f) (fη : η ▹ f • γ = lunitor _) (fμ : rassociator _ _ _ • (_ ◃ γ) • γ = (μ ▹ f) • γ) : kleisli_cocone := x ,, f ,, γ ,, fη ,, fμ.
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