simpa using hi
α : Type u_1
ι : Type u_2
W : Type u_3
W' : Type u_4
M : Type u_5
R : Type u_6
inst✝⁴ : AddCommGroup W
inst✝³ : AddCommGroup W'
inst✝² : Semiring R
inst✝¹ : AddCommMonoid M
inst✝ : Module R M
s : Set ι
f : ι → M
l : ι →₀ R
hl0 : ∑ x ∈ l.support, l x • f x = 0
hls : ↑l.support ⊆ s
h : ∑ x ∈ l.support, l x • f x = 0 → ∀ (x : ↑s), (Finsupp.comapDomain Subtype.val l ⋯) x = 0 x
i : ι
hi : ¬l i = 0 i
⊢ i ∈ l.support
no goals