Definition runitor_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 (s ⋆h id_h_square_bicat _) s (runitor _) (runitor _)) × (∏ (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 (s ⋆v id_v_square_bicat _) s (runitor _) (runitor _)).
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.