Definition enriched_profunctor_collage_square : enriched_profunctor_square enriched_profunctor_collage_inl_enrichment enriched_profunctor_collage_inr_enrichment P (identity_enriched_profunctor _). Proof. use make_enriched_profunctor_transformation. - exact (λ _ _, identity _). - split. + abstract (intros ; cbn ; rewrite !tensor_id_id ; rewrite !id_left, id_right ; rewrite !assoc ; rewrite sym_mon_braiding_inv ; apply id_left). + abstract (intros ; cbn ; rewrite !tensor_id_id ; rewrite !id_left, id_right ; apply idpath). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Limits.Initial. Require Import UniMath.CategoryTheory.EnrichedCats.BenabouCosmos. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Require Import UniMath.CategoryTheory.EnrichedCats.Profunctors.Profunctor. Require Import UniMath.CategoryTheory.EnrichedCats.Profunctors.ProfunctorTransformations. Require Import UniMath.CategoryTheory.EnrichedCats.Profunctors.ProfunctorSquares. Require Import UniMath.CategoryTheory.EnrichedCats.Profunctors.StandardProfunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Require Import UniMath.CategoryTheory.Monoidal.Structure.Closed. Import MonoidalNotations.