refine ⟨⟨l, rfl, hl⟩, ?_⟩
case mpr.intro.intro
α : Type u_1
R✝ : Type u_2
η✝ : Type u_3
ι✝ : Type u_4
R : Type u_5
K : Type u_6
η : Type u_7
ι : Type u_8
inst✝² : CommRing R
inst✝¹ : Field K
inst✝ : Fintype η
s : Set ι
U : Submodule R (ι → R)
l : ↥(Finsupp.supported R R s)
hl : ∀ x ∈ U, (Finsupp.total ι R R x) ↑l = 0
⊢ (∃ l_1, ⇑l_1 = ⇑↑l ∧ ∀ y ∈ U, (Finsupp.total ι R R y) l_1 = 0) ∧ support ⇑↑l ⊆ s
case mpr.intro.intro
α : Type u_1
R✝ : Type u_2
η✝ : Type u_3
ι✝ : Type u_4
R : Type u_5
K : Type u_6
η : Type u_7
ι : Type u_8
inst✝² : CommRing R
inst✝¹ : Field K
inst✝ : Fintype η
s : Set ι
U : Submodule R (ι → R)
l : ↥(Finsupp.supported R R s)
hl : ∀ x ∈ U, (Finsupp.total ι R R x) ↑l = 0
⊢ support ⇑↑l ⊆ s