rw [or_iff_not_imp_left, not_infinite]
case refine'_1
α : Type u_1
β : Type u_2
ι : Type u_3
s : Set α
n : ℕ∞
f g : α → ℕ∞
h : ∑' (a : α), f a = ⊤
⊢ (support f).Infinite ∨ ∃ a, f a = ⊤
case refine'_1
α : Type u_1
β : Type u_2
ι : Type u_3
s : Set α
n : ℕ∞
f g : α → ℕ∞
h : ∑' (a : α), f a = ⊤
⊢ (support f).Finite → ∃ a, f a = ⊤