Proposition dwhisker_vcomp_square {x₁ x₂ y₁ y₂ z₁ z₂ : B} {h₁ : x₁ --> x₂} {h₂ : y₁ --> y₂} {h₃ h₃' : z₁ --> z₂} {v₁ : x₁ -|-> y₁} {v₂ : y₁ -|-> z₁} {w₁ : x₂ -|-> y₂} {w₂ : y₂ -|-> z₂} (τ : h₃ ==> h₃') (s₁ : square_double_bicat h₁ h₂ v₁ w₁) (s₂ : square_double_bicat h₂ h₃ v₂ w₂) : τ ▿s (s₁ ⋆v s₂) = s₁ ⋆v (τ ▿s s₂). Proof. exact (pr12 (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.