Definition comma_1cell (p q : comma_cone) : UU := ∑ (φ : p --> q) (τ : invertible_2cell (φ · comma_cone_pr1 q) (comma_cone_pr1 p)) (θ : invertible_2cell (φ · comma_cone_pr2 q) (comma_cone_pr2 p)), φ ◃ comma_cone_cell q = lassociator _ _ _ • (τ ▹ f) • comma_cone_cell p • (θ^-1 ▹ g) • rassociator _ _ _.
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.Univalence.