Definition transpose_twosided_disp_cat_ob_mor : twosided_disp_cat_ob_mor 𝕍 𝕍. Proof. simple refine (_ ,, _). - exact (λ (x y : B), x --> y). - exact (λ (x₁ x₂ y₁ y₂ : B) (h₁ : x₁ --> y₁) (h₂ : x₂ --> y₂) (v₁ : x₁ -|-> x₂) (v₂ : y₁ -|-> y₂), 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. Require Import UniMath.Bicategories.Core.BicategoryLaws. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.DoubleCategories.DoubleBicat.VerityDoubleBicat. Require Import UniMath.Bicategories.DoubleCategories.DoubleBicat.UnderlyingCats.