fact: Definition kleisli_ump_mor_cell_is_invertible {a : B} {g : z --> a} (γ : h · g ==> g) (p₁ : (η ▹ g) • γ = lunitor g) (p₂ : (rassociator h h g • (h ◃ γ)) • γ = (μ ▹ g) • γ) : is_invertible_2cell (kleisli_ump_mor_cell γ p₁ p₂) := cell_of_kleisli_cocone_mor_is_invertible (pr1 Hk (make_kleisli_cocone g γ p₁ p₂)).
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