apply Aux.sum_pow_cardDistinctFactors_le_self_mul_log_pow (hx := s.one_le_level)
case h
s : SelbergSieve
C : ℝ
hrem : ∀ d > 0, |s.rem d| ≤ C
⊢ (∑ a ∈ s.prodPrimes.divisors, if ↑a ≤ s.level then 3 ^ ω a else 0) ≤ s.level * (1 + s.level.log) ^ 3
case h
s : SelbergSieve
C : ℝ
hrem : ∀ d > 0, |s.rem d| ≤ C
⊢ Squarefree s.prodPrimes