calc
  s.siftedSum ≤ X * s.mainSum μPlus + s.errSum μPlus := s.siftedSum_le_mainSum_errSum_of_UpperBoundSieve μPlus
  _ ≤ _ := ?_
s : SelbergSieve
μPlus : UpperBoundSieve := s.selbergUbSieve
⊢ s.siftedSum ≤ X / S + ∑ d ∈ P.divisors, if ↑d ≤ y then 3 ^ ω d * |s.rem d| else 0
s : SelbergSieve
μPlus : UpperBoundSieve := s.selbergUbSieve
⊢ X * s.mainSum μPlus.μPlus + s.errSum μPlus.μPlus ≤ X / S + ∑ d ∈ P.divisors, if ↑d ≤ y then 3 ^ ω d * |s.rem d| else 0