proposition: Lemma actegory_coprod_antidistributor_nat_right (v1 v2 : V) (cs : power_category I C) (f : v1 --> v2) : actegory_coprod_antidistributor v1 cs · f ⊗^{Act}_{r} coproduct_functor I CP cs = #(coproduct_functor I CP) (f ⊗^{actegory_power Mon_V I Act}_{r} cs) · actegory_coprod_antidistributor v2 cs.
proof: Proof. apply coprod_antidistributor_nat_right. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Actegories.Actegories UniMath.CategoryTheory.Actegories.MorphismsOfActegories UniMath.CategoryTheory.Actegories.ProductActegory UniMath.CategoryTheory.Actegories.ConstructionOfActegories UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.ProductCategory UniMath.CategoryTheory.Limits.BinCoproducts UniMath.CategoryTheory.Limits.Coproducts