Definition dwhisker_square_id_comp_law (B : ver_bicat_sq_id_comp_whisker) : UU := (∏ (w x y z : B) (h₁ : w --> x) (h₂ : y --> z) (v₁ : w -|-> y) (v₂ : x -|-> z) (s : square_double_bicat h₁ h₂ v₁ v₂), id2 h₂ ▿s s = s) × (∏ (w x y z : B) (h₁ : w --> x) (h₂ h₂' h₂'' : y --> z) (v₁ : w -|-> y) (v₂ : x -|-> z) (τ₁ : h₂ ==> h₂') (τ₂ : h₂' ==> h₂'') (s : square_double_bicat h₁ h₂ v₁ v₂), (τ₁ • τ₂) ▿s s = τ₂ ▿s (τ₁ ▿s s)).
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.