proposition: Lemma coproduct_of_functors_nat_trans_aux {I : UU} {C D : category} (CP : Coproducts I D) {F G : I → C ⟶ D} (α : ∏ i : I, nat_trans (F i) (G i)) : is_nat_trans (coproduct_of_functors I C D CP F) (coproduct_of_functors I C D CP G) (λ c : C, CoproductOfArrows I D (CP (λ i : I, F i c)) (CP (λ i : I, G i c)) (λ i : I, α i c)).
proof: Proof. intros c1 c2 f. etrans. 1: apply precompWithCoproductArrow. etrans. 2: apply pathsinv0, precompWithCoproductArrow. apply maponpaths. apply funextsec ; intro i. etrans. 1: apply assoc. etrans. 2: apply assoc'. apply maponpaths_2. exact (pr2 (α i) _ _ f). Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Limits.Coproducts UniMath.CategoryTheory.Limits.Graphs.Limits UniMath.CategoryTheory.Limits.Graphs.Colimits UniMath.CategoryTheory.Chains.All