exact hss
case intro.intro.intro.refine_2
α : Type u_1
β : Type u_2
ι : Type u_3
s✝ : Set α
n : ℕ∞
f g : α → ℕ∞
hf : (support f).Infinite
b : ℕ
hb : ↑b < ⊤
s : Set α
hss : s ⊆ support f
hsc : s.encard = ↑(b + 1)
s' : Finset α := ⋯.toFinset
⊢ ∀ i ∈ s, f i ≠ 0
no goals