rw [eq_singleton_iff_nonempty_unique_mem, mulStab_nonempty, ← one_mem_mulStab] at ha
case intro
ι : Type u_1
α : Type u_2
inst✝¹ : Group α
inst✝ : DecidableEq α
s t : Finset α
a✝ : α
h : s.mulStab.card = 1
a : α
ha : s.mulStab = {a}
⊢ {a} = 1
case intro
ι : Type u_1
α : Type u_2
inst✝¹ : Group α
inst✝ : DecidableEq α
s t : Finset α
a✝ : α
h : s.mulStab.card = 1
a : α
ha : 1 ∈ s.mulStab ∧ ∀ x ∈ s.mulStab, x = a
⊢ {a} = 1