fact: Definition lunitor_cylinder_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₂), is_hor_cylinder (id_h_square_bicat _ ⋆h s) s (lunitor _) (lunitor _)) × (∏ (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₂), is_ver_cylinder (id_v_square_bicat _ ⋆v s) s (lunitor _) (lunitor _)).
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat UniMath.Bicategories.Core.Bicat