∀ {ι : Type v} {M : Type u_1} {S : Type u_2} [inst : AddCommMonoid M] [inst_1 : SetLike S M]
  [inst_2 : AddSubmonoidClass S M] (A : ι → S) (x : DirectSum ι fun i => ↥(A i)),
  (Function.support fun i => ↑(x i)).Finite