proposition: Proposition mor_to_copower_commutes {w : V} {b : C} (f : w --> v ⊸ (E ⦃ x , b ⦄)) : mor_to_copower f · is_copower_enriched_map a b = f.
proof: Proof. unfold mor_to_copower. rewrite !assoc'. refine (_ @ id_right _). apply maponpaths. apply z_iso_after_z_iso_inv. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.Closed UniMath.CategoryTheory.EnrichedCats.Enrichment