rw [←Aux.sum_intro]
case pos
s : SelbergSieve
k n : ℕ
f : ℕ → ℝ
h : ∀ (l : ℕ), l ∣ n → ¬k ∣ l → f l = 0
hn : ¬n = 0
hkn : k ∣ n
m : ℕ
a✝ : m ∈ n.divisors
hdvd : k * m ∣ n
⊢ (∑ x ∈ n.divisors, if x = k * m then f x else 0) = f (k * m)
case pos.hd
s : SelbergSieve
k n : ℕ
f : ℕ → ℝ
h : ∀ (l : ℕ), l ∣ n → ¬k ∣ l → f l = 0
hn : ¬n = 0
hkn : k ∣ n
m : ℕ
a✝ : m ∈ n.divisors
hdvd : k * m ∣ n
⊢ k * m ∈ n.divisors