rw [← ha.2 _ ha.1, singleton_one]
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
no goals