Definition em_comnd_ump_cell_eq {x : B} {g₁ g₂ : x --> e} (α : g₁ · mor_of_em_comnd_cone e ==> g₂ · mor_of_em_comnd_cone e) (p : α • (g₂ ◃ cell_of_em_comnd_cone e) • lassociator _ _ _ = (g₁ ◃ cell_of_em_comnd_cone e) • lassociator _ _ _ • (α ▹ h)) : em_comnd_ump_cell α p ▹ _ = α := pr21 (pr2 He x g₁ g₂ α p).
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.