refine (strictMono_mul_left_of_pos (Nat.pos_of_ne_zero ?_)).le_iff_le
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
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