∀ {ι : Type u_1} {R : Type u_2} {S : Type u_3} [inst : SetLike S R] [inst_1 : Monoid R] [inst_2 : AddMonoid ι]
  {A : ι → S} [SetLike.GradedMonoid A] {n : ℕ} (i : Fin n → ι) (r : Fin n → R),
  (∀ (j : Fin n), r j ∈ A (i j)) → (List.ofFn r).prod ∈ A (List.ofFn i).sum