trans (∑ n in s.support, a n * ∑ d in (Nat.gcd P n).divisors, μPlus d)
s : Sieve
μPlus : UpperBoundSieve
hμ : ∀ (n : ℕ), δ n ≤ ∑ d ∈ n.divisors, μPlus.μPlus d
⊢ ∑ d ∈ A, s.weights d * δ (P.gcd d) ≤ ∑ d ∈ P.divisors, μPlus.μPlus d * s.multSum d
s : Sieve
μPlus : UpperBoundSieve
hμ : ∀ (n : ℕ), δ n ≤ ∑ d ∈ n.divisors, μPlus.μPlus d
⊢ ∑ d ∈ A, s.weights d * δ (P.gcd d) ≤ ∑ n ∈ A, s.weights n * ∑ d ∈ (P.gcd n).divisors, μPlus.μPlus d

s : Sieve
μPlus : UpperBoundSieve
hμ : ∀ (n : ℕ), δ n ≤ ∑ d ∈ n.divisors, μPlus.μPlus d
⊢ ∑ n ∈ A, s.weights n * ∑ d ∈ (P.gcd n).divisors, μPlus.μPlus d ≤ ∑ d ∈ P.divisors, μPlus.μPlus d * s.multSum d