Tao Corollary 4.9: S_{eta^2,q}(x,0) = x(1+O*(0.02)) and major-arc L^2 mass >= 0.94x
ProvedTaoFivePrimes.downlow_cleanedWith as in Section 4, let be smooth, non-negative and supported in for some , normalised so that ; let , and let be a modulus all of whose prime factors are at most . Assume the five side conditions
- ;
- ;
- ;
- ;
- .
Then
and
where denotes a quantity of absolute value at most .
The second conclusion is the clean lower bound on the major-arc mass that Section 8 runs on: applied to the trapezoidal cutoff of that section it says that the major arc carries at least of the mass of the sifted prime exponential sum.
Quoted inputs The proof in the source invokes three explicit estimates of Rosser and Schoenfeld, none of which is available in the ambient library, and each appears here as a hypothesis in exactly the form used: for ; ; and , which is what gives for the product of the primes up to . Here and is the number of distinct prime factors of .
Fidelity note Condition 5 is the source's rewritten with in place of , matching the constant that the proof of Proposition 4.8 actually yields. The numerology of the corollary is unchanged.
Formalization Note Frequencies are real numbers, so for the region is the interval . The first conclusion is stated as a bound on by .
import Mathlib import Definitions.Def_TaoFivePrimes_Explicit import Definitions.Def_TaoFivePrimes_SmoothedExpSum open MeasureTheory
theorem TaoFivePrimes.downlow_cleaned
(eta : ℝ → ℝ) (hsm : ContDiff ℝ (⊤ : ℕ∞) eta) (hcs : HasCompactSupport eta)
(hnn : ∀ t : ℝ, 0 ≤ eta t)
(c x : ℝ) (hc0 : 0 < c) (hc1 : c ≤ 1) (hx : 1 ≤ x)
(hsupp : ∀ t : ℝ, t < c ∨ 1 < t → eta t = 0)
(Minf : ℝ) (hMinf : ∀ t : ℝ, eta t ≤ Minf)
(hL2 : (∫ t : ℝ, eta t ^ 2) = 1)
(q : ℕ) (hq : 0 < q) (r : ℝ) (hrlo : 1 / (2 * x) ≤ r) (hr0 : 0 < r) (hr : r < 1 / 2)
(hc8 : (10 : ℝ) ^ 8 ≤ c * x)
(hneat : (10 : ℝ) ^ 4 * (∫ t : ℝ, |eta t * deriv eta t|) ≤ x)
(halamo : 5 * (∫ t : ℝ, |eta t * deriv eta t|) ≤ Real.log (c * x))
(h10q : (10 : ℝ) ^ 8 * Minf ^ 4 ≤ x)
(hr0b : 10 * (∫ t : ℝ, |iteratedDeriv 2 eta t|) * Minf ≤ r * x)
(homega : (q.primeFactors.card : ℝ) * Real.log x ≤ 2.52 * Real.sqrt x)
(hpsi : ∀ y : ℝ, c * x ≤ y → y ≤ x →
|Chebyshev.psi y - y| ≤ y / (40 * Real.log (c * x)))
(hpsi2 : Chebyshev.psi x ≤ 1.04 * x) :
‖TaoFivePrimes.smoothedExpSum (fun t => eta t ^ 2) q x 0 - ((x : ℝ) : ℂ)‖ ≤ 0.02 * x
∧ 0.94 * x ≤ ∫ theta in (-r)..r,
‖TaoFivePrimes.smoothedExpSum eta q x theta‖ ^ 2 := by sorry