obtain ⟨a, -, h⟩ := h
case refine'_1
α : Type u_1
β : Type u_2
ι : Type u_3
s : Set α
n : ℕ∞
f g : α → ℕ∞
h : ∃ a ∈ support f, f a = ⊤
hfin : (support f).Finite
⊢ ∃ a, f a = ⊤
case refine'_1.intro.intro
α : Type u_1
β : Type u_2
ι : Type u_3
s : Set α
n : ℕ∞
f g : α → ℕ∞
hfin : (support f).Finite
a : α
h : f a = ⊤
⊢ ∃ a, f a = ⊤