rintro rfl
case some.some.some
K : Type u_1
p : ℕ+
hpri : Fact p.Prime
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
n m k : ℕ
hk : some k ≠ 0
hk' : some k ≠ ⊤
⊢ k ≠ 0
case some.some.some
K : Type u_1
p : ℕ+
hpri : Fact p.Prime
inst✝² : Field K
inst✝¹ : CharZero K
inst✝ : IsCyclotomicExtension {p} ℚ K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
n m : ℕ
hk : some 0 ≠ 0
hk' : some 0 ≠ ⊤
⊢ False