simp_rw [Finset.sum_singleton, hi.encard_eq, top_le_iff, eq_comm] at hle
case inl.intro
α : Type u_1
β : Type u_2
s✝ t : Set α
n : ℕ
ι : Type u_3
inst✝ : Fintype ι
s : ι → Set α
hs : univ.PairwiseDisjoint s
i : ι
hi : (s i).Infinite
hle : ∑ x ∈ {i}, (fun i => (s i).encard) x ≤ ∑ x : ι, (fun i => (s i).encard) x
⊢ ⊤ = ∑ i : ι, (s i).encard
case inl.intro
α : Type u_1
β : Type u_2
s✝ t : Set α
n : ℕ
ι : Type u_3
inst✝ : Fintype ι
s : ι → Set α
hs : univ.PairwiseDisjoint s
i : ι
hi : (s i).Infinite
hle : ⊤ = ∑ x : ι, (s x).encard
⊢ ⊤ = ∑ i : ι, (s i).encard