Tao Section 5: the pointwise envelope for a Type I summand
ProvedTaoFivePrimes.theorem51_typeI_pointwise_envelopeThe pointwise envelope for a single Type I summand. Let with , and , let be complex coefficients with on the positive odd , and fix such a . Then
with the convention that the second alternative is dropped when .
This is the source's display (amble): the whole analytic content of the Type I estimate, before any summation over . It follows from the summation-by-parts corollary applied to , which gives the three-fold minimum of , and , together with the norms
and the support of in , which gives on the support of . Only the first two of the three alternatives are retained here; the third is what the source uses for its alternative estimate in the range , , which is not needed for Theorem 1.3.
Formalization Note The source's is only piecewise smooth, so the summation-by-parts corollary is applied after an infinitesimal mollification, or with the norms of the derivatives read as total variations; the statement above is the conclusion of that limiting argument and is what the rest of Section 5 uses. The sum is over all odd integers , , and is finite because has compact support. The sine is written .
import Mathlib import Definitions.Def_TaoFivePrimes_Theorem51Sums open Finset
theorem TaoFivePrimes.theorem51_typeI_pointwise_envelope
(x alpha U V : ℝ) (hx : 0 < x) (hU40 : 40 ≤ U) (hV40 : 40 ≤ V)
(hUx : U < x) (hVx : V < x) (hUV : U * V ≤ x / 4) (hUV2 : x ≤ U * V ^ 2)
(c : ℕ → ℂ) (hc : ∀ d ∈ TaoFivePrimes.theorem51Divisors U V, ‖c d‖ ≤ 1)
(d : ℕ) (hd : d ∈ TaoFivePrimes.theorem51Divisors U V) :
‖∑' n : ℤ,
(((Real.log ((2 * n + 1 : ℤ) : ℝ) : ℂ) + c d * (Real.log d : ℂ)) *
(TaoFivePrimes.eta0 (d * ((2 * n + 1 : ℤ) : ℝ) / x) : ℂ)) *
TaoFivePrimes.expCircle (alpha * d * ((2 * n + 1 : ℤ) : ℝ))‖
≤ (if Real.sin (Real.pi * (2 * alpha) * (d : ℝ)) = 0 then
(1 / 2) * (x / (d : ℝ)) * Real.log x + 4 * Real.log 2 * Real.log (2 * x)
else min ((1 / 2) * (x / (d : ℝ)) * Real.log x + 4 * Real.log 2 * Real.log (2 * x))
(4 * Real.log 2 * Real.log (2 * x)
/ |Real.sin (Real.pi * (2 * alpha) * (d : ℝ))|)) := by sorry