Proposition eq_lwhisker_square {B : verity_double_bicat} {w x y z : B} {h₁ : w --> x} {h₂ : y --> z} {v₁ v₁' : w -|-> y} {v₂ : x -|-> z} {τ τ' : v₁ =|=> v₁'} {s s' : square_double_bicat h₁ h₂ v₁' v₂} (p : τ = τ') (q : s = s') : τ ◃s s = τ' ◃s s'. Proof. rewrite p, q. apply idpath. Qed.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Isos. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Discrete. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.BicategoryLaws. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.DoubleCategories.DoubleBicat.VerityDoubleBicat.