Proposition lrwhisker_hcomp_square {x₁ x₂ x₃ y₁ y₂ y₃ : B} {h₁ : x₁ --> x₂} {h₂ : x₂ --> x₃} {k₁ : y₁ --> y₂} {k₂ : y₂ --> y₃} {v₁ : x₁ -|-> y₁} {v₂ v₂' : x₂ -|-> y₂} {v₃ : x₃ -|-> y₃} (τ : v₂ =|=> v₂') (s₁ : square_double_bicat h₁ k₁ v₁ v₂) (s₂ : square_double_bicat h₂ k₂ v₂' v₃) : s₁ ⋆h (τ ◃s s₂) = (τ ▹s s₁) ⋆h s₂. Proof. exact (pr22 (pr222 (pr222 (pr222 (pr12 B)))) _ _ _ _ _ _ _ _ _ _ _ _ _ _ τ s₁ s₂). Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations.