fact: Definition make_em_comnd_cone {x : B} (f : x --> z) (γ : f ==> f · h) (fε : γ • (f ◃ ε) = rinvunitor _) (fν : γ • (γ ▹ _) • rassociator _ _ _ = γ • (f ◃ ν)) : em_comnd_cone := 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.OpCellBicat UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.Examples.MonadsLax