Definition make_double_cat (C : category) (D : twosided_disp_cat C C) (I : hor_id D) (Cm : hor_comp D) (l : double_cat_lunitor I Cm) (r : double_cat_runitor I Cm) (a : double_cat_associator Cm) (tr : triangle_law l r a) (pe : pentagon_law a) : double_cat := C ,, D ,, I ,, Cm ,, l ,, r ,, a ,, tr ,, pe.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Isos. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Univalence. Require Import UniMath.Bicategories.Core.Examples.BicatOfUnivCats. Require Import UniMath.Bicategories.DoubleCategories.Basics.DoubleCategoryBasics.