have := Fintype.card_le_one_iff_subsingleton.mp h.ge
case a.a.inr
L : Type u
inst✝ : Field L
n : ℕ+
ζ : { x // x ∈ rootsOfUnity n L }
this : 1 ≤ Fintype.card { x // x ∈ rootsOfUnity n L }
h : 1 = Fintype.card { x // x ∈ rootsOfUnity n L }
⊢ ↑(RingEquiv.refl L) ↑↑ζ = ↑↑(ζ ^ ZMod.val 1)
case a.a.inr
L : Type u
inst✝ : Field L
n : ℕ+
ζ : { x // x ∈ rootsOfUnity n L }
this✝ : 1 ≤ Fintype.card { x // x ∈ rootsOfUnity n L }
h : 1 = Fintype.card { x // x ∈ rootsOfUnity n L }
this : Subsingleton { x // x ∈ rootsOfUnity n L }
⊢ ↑(RingEquiv.refl L) ↑↑ζ = ↑↑(ζ ^ ZMod.val 1)