Definition ver_cyl_twosided_disp_cat_ob_mor : twosided_disp_cat_ob_mor (hom_v w y) (hom_v x z). Proof. simple refine (_ ,, _). - exact (λ (v₁ : w -|-> y) (v₂ : x -|-> z), square_double_bicat h₁ h₂ v₁ v₂). - exact (λ (u₁ u₂ : w -|-> y) (v₁ v₂ : x -|-> z) (s₁ : square_double_bicat h₁ h₂ u₁ v₁) (s₂ : square_double_bicat h₁ h₂ u₂ v₂) (τ₁ : u₁ =|=> u₂) (τ₂ : v₁ =|=> v₂), is_ver_cylinder s₁ s₂ τ₁ τ₂). Defined.
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.Unitors. Require Import UniMath.Bicategories.Core.BicategoryLaws. Require Import UniMath.Bicategories.DoubleCategories.DoubleBicat.VerityDoubleBicat. Require Import UniMath.Bicategories.DoubleCategories.DoubleBicat.DerivedLaws.