Proposition hcomp_split_globular_r_path {C : double_cat} {x : C} {v₁ v₂ : x -->v x} (q₁ : identity_v x = v₁) (q₂ : identity_v x = v₂) : v₁ = v₁ ·v v₂. Proof. induction q₁, q₂. refine (!_). apply id_v_left. Qed.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.DoubleCategories.Core.DoubleCats. Require Import UniMath.Bicategories.DoubleCategories.DerivedLaws.TransportLaws. Require Import UniMath.Bicategories.DoubleCategories.DerivedLaws.Variations. Import TransportSquare.