rw [hinf.encard_eq, ENat.tsum_subtype_eq_top_of_inter_support_infinite]
case inr
α : Type u_1
β : Type u_2
ι : Type u_3
s✝ : Set α
n : ℕ∞
f g : α → ℕ∞
s : Set α
hinf : s.Infinite
⊢ ∑' (i : ↑s), 1 ↑i = s.encard
case inr
α : Type u_1
β : Type u_2
ι : Type u_3
s✝ : Set α
n : ℕ∞
f g : α → ℕ∞
s : Set α
hinf : s.Infinite
⊢ (s ∩ support 1).Infinite