proposition: Proposition is_colim_enriched_is_wedge (a : enriched_colim_cocone) (w : C) : is_wedge (weighted_hom_co w) (is_colim_enriched_wedge_data a w).
proof: Proof. intros i j g ; cbn. rewrite !functor_id. rewrite (functor_id W). rewrite precomp_arr_id. use internal_funext. intros z h. rewrite !tensor_comp_r_id_r. rewrite !assoc'. unfold internal_pre_post_comp. rewrite !internal_beta. rewrite !tensor_id_id. rewrite id_left, id_right. rewrite !assoc. rewrite <- tensor_comp_mor. rewrite id_right. rewrite tensor_split. rewrite !assoc'. rewrite internal_beta. refine (!_). rewrite tensor_split. rewrite !assoc'. rewrite !(maponpaths (λ z, _ · z) (assoc _ _ _)). rewrite internal_beta. rewrite tensor_comp_id_l. rewrite !assoc'. apply maponpaths. rewrite enriched_comp_precomp_arr. rewrite !assoc. rewrite <- !tensor_comp_id_l. apply maponpaths_2. apply maponpaths. apply enriched_colim_cocone_commute. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.OppositeCategory.Core UniMath.CategoryTheory.Categories.StandardCategories UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Limits.Ends UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.Closed UniMath.CategoryTheory.EnrichedCats.Enrichment UniMath.CategoryTheory.EnrichedCats.Examples.SelfEnriched UniMath.CategoryTheory.EnrichedCats.Colimits.EnrichedConicalColimits UniMath.CategoryTheory.EnrichedCats.Colimits.EnrichedCopowers