simp_rw [WithTop.some_eq_coe, ENat.some_eq_coe]
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 ≠ ⊤
⊢ some k * some n ≤ some k * some m ↔ some n ≤ some m
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 * ↑n ≤ ↑k * ↑m ↔ ↑n ≤ ↑m