exact_mod_cast s._helper hkd hk hm
s : SelbergSieve
d : ℕ
hdP : d ∣ P
k : ℕ
hk : k ∈ P.divisors
hkd : k ∣ d
m : ℕ
hm : m ∈ P.divisors
⊢ k * m ∣ P ∧ k = d.gcd (k * m) ∧ ↑(k * m) ^ 2 ≤ y ↔ (↑k * ↑m) ^ 2 ≤ y ∧ m.Coprime d
no goals