fact: Definition whisker_square_id_square (B : ver_bicat_sq_id_comp_whisker) : UU := (∏ (x y : B) (v w : x -|-> y) (τ : v =|=> w), τ ◃s id_h_square_bicat w = τ ▹s id_h_square_bicat v) × (∏ (x y : B) (h k : x --> y) (τ : h ==> k), τ ▵s id_v_square_bicat k = τ ▿s id_v_square_bicat h).
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat UniMath.Bicategories.Core.Bicat