Definition transpose_ver_sq_bicat_ver_id_comp : ver_sq_bicat_ver_id_comp transpose_ver_sq_bicat. Proof. split. - split. + exact (λ (x : B), id_h x). + exact (λ (x y z : B) (f : x --> y) (g : y --> z), f · g). - exact (λ (x y : B) (f g : x --> y), f ==> g). 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.