Definition em_comnd_cone_mor (q₁ q₂ : em_comnd_cone) : UU := ∑ (f : q₁ --> q₂) (α : mor_of_em_comnd_cone q₁ ==> f · mor_of_em_comnd_cone q₂), (cell_of_em_comnd_cone q₁ • (α ▹ _) = α • (_ ◃ cell_of_em_comnd_cone q₂) • lassociator _ _ _) × is_invertible_2cell α.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.Core.BicategoryLaws. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.Core.TransportLaws. Require Import UniMath.Bicategories.Core.Univalence. Require Import UniMath.Bicategories.Core.Examples.OpCellBicat. Require Import UniMath.Bicategories.DisplayedBicats.DispBicat. Import DispBicat.Notations. Require Import UniMath.Bicategories.DisplayedBicats.Examples.MonadsLax.