apply sum_le_sum
s : Sieve
μPlus : UpperBoundSieve
⊢ ∑ d ∈ P.divisors, μPlus.μPlus d * s.rem d ≤ ∑ d ∈ P.divisors, |μPlus.μPlus d| * |s.rem d|
case h
s : Sieve
μPlus : UpperBoundSieve
⊢ ∀ i ∈ P.divisors, μPlus.μPlus i * s.rem i ≤ |μPlus.μPlus i| * |s.rem i|