Definition make_enriched_relation_double_functor_hor_id : double_functor_hor_id make_enriched_relation_twosided_disp_functor (enriched_rel_double_cat_hor_id V) (enriched_rel_double_cat_hor_id V). Proof. use make_double_functor_hor_id. - exact FI. - abstract (intro ; intros ; apply isaprop_enriched_relation_square). Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.TwoSidedDispCat. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.DisplayedFunctor. Require Import UniMath.CategoryTheory.TwoSidedDisplayedCats.Examples.EnrichedRels. Require Import UniMath.CategoryTheory.Categories.HSET.All. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.DoubleCategories.Basics.DoubleCategoryBasics. Require Import UniMath.Bicategories.DoubleCategories.Core.DoubleCats. Require Import UniMath.Bicategories.DoubleCategories.Core.UnivalentDoubleCats. Require Import UniMath.Bicategories.DoubleCategories.Core.DoubleFunctor. Require Import UniMath.Bicategories.DoubleCategories.Examples.EnrichedRelDoubleCat. Require Import UniMath.CategoryTheory.EnrichedCats.BenabouCosmos. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichedRelation. Require Import UniMath.CategoryTheory.EnrichedCats.LaxExtension.