fact: Definition make_em_comnd_cone_mor {q₁ q₂ : em_comnd_cone} (f : q₁ --> q₂) (α : mor_of_em_comnd_cone q₁ ==> f · mor_of_em_comnd_cone q₂) (p : cell_of_em_comnd_cone q₁ • (α ▹ _) = α • (_ ◃ cell_of_em_comnd_cone q₂) • lassociator _ _ _) (Hα : is_invertible_2cell α) : em_comnd_cone_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.OpCellBicat UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.Examples.MonadsLax