simp
case none
K : Type u_1
p : ℕ+
hpri : Fact p.Prime
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
k m : ℕ∞
hk : k ≠ 0
hk' : k ≠ ⊤
⊢ True ∧ m = ⊤ ∨ False ∧ m ≠ 0 ↔ m = ⊤
no goals