Definition ver_bicat_sq_bicat_to_ver_twosided_disp_cat_ob_mor (B : ver_bicat_sq_bicat) : twosided_disp_cat_ob_mor (ver_bicat_of_ver_bicat_sq_bicat B) (ver_bicat_of_ver_bicat_sq_bicat B). Proof. simple refine (_ ,, _). - exact (λ (x y : B), x --> y). - exact (λ w x y z h₁ h₂ v₁ v₂, square_double_bicat h₁ h₂ v₁ v₂). Defined.
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.