Proposition rwhisker_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₂ : x₂ -|-> y₂} {v₃ v₃' : x₃ -|-> y₃} (τ : v₃ =|=> v₃') (s₁ : square_double_bicat h₁ k₁ v₁ v₂) (s₂ : square_double_bicat h₂ k₂ v₂ v₃) : τ ▹s (s₁ ⋆h s₂) = s₁ ⋆h (τ ▹s s₂). Proof. exact (pr12 (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.