refine Nat.le_of_dvd ?_ hkd
case hab.bc
s : SelbergSieve
d : ℕ
hdP : d ∣ P
k : ℕ
a✝ : k ∈ P.divisors
hkd : k ∣ d
m : ℕ
hm : m ∈ P.divisors
h : (↑d * ↑m) ^ 2 ≤ y ∧ m.Coprime d
h' : ¬((↑k * ↑m) ^ 2 ≤ y ∧ m.Coprime d)
⊢ k ≤ d
case hab.bc
s : SelbergSieve
d : ℕ
hdP : d ∣ P
k : ℕ
a✝ : k ∈ P.divisors
hkd : k ∣ d
m : ℕ
hm : m ∈ P.divisors
h : (↑d * ↑m) ^ 2 ≤ y ∧ m.Coprime d
h' : ¬((↑k * ↑m) ^ 2 ≤ y ∧ m.Coprime d)
⊢ 0 < d