have hrdvd : r ∣ d := by use k; rw [mul_comm]; exact hr
case intro
s : SelbergSieve
k d m : ℕ
hmd : m.Coprime d
hk : k ≠ 0
r : ℕ
hr : d = k * r
⊢ k = d.gcd (k * m)
case intro
s : SelbergSieve
k d m : ℕ
hmd : m.Coprime d
hk : k ≠ 0
r : ℕ
hr : d = k * r
hrdvd : r ∣ d
⊢ k = d.gcd (k * m)