proposition: Proposition copow_mor_commute {v₁ v₂ : V} (f : v₁ --> v₂) (r : C) : enriched_from_arr EC (copow_mor f r) · is_copower_enriched_map EC v₁ r _ _ = internal_lam (mon_lunitor _ · f · mor_of_copow_ob v₂ r).
proof: Proof. apply arr_to_copower_commutes. Qed.
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.Closed UniMath.CategoryTheory.EnrichedCats.Enrichment UniMath.CategoryTheory.EnrichedCats.Colimits.EnrichedCopowers