Tao Theorem 5.1 with the constants its proof supports
ProvedTaoFivePrimes.minor_arc_bound_theorem51_correctedBound for minor arc sums, with the constants the source's own argument supports. Let for a natural number with and . Let with
Then
Here is the smoothed prime exponential sum sifted at the modulus .
This is the central minor-arc estimate of the source, stated with two constants weakened to what the source's own chain of estimates actually yields. It is still strong enough for everything the source does with it: Section 6 specialises it at , to the exponential sum estimate quoted as Theorem 1.3, and the margin there is ample.
Where the two changes come from The source states the first term without the additive and the last with in place of . Neither is supported by its own argument.
First term. The integral test used for the block sum is
but the comparison of a decreasing summand with the integral over the preceding block does not cover , whose term is . At , the left side is and the right side . Restoring the missing term gives the above; asymptotically in it costs nothing.
Last term. In the square-root expansion of the Type II envelope the third coefficient is
that is and not . Carrying the corrected coefficient through turns the source's into .
Formalization Note The alternative form of the first term available when and is omitted, since the derivation of Theorem 1.3 does not use it. The smoothed sum is the platform definition, an unconditional sum over the natural numbers made finite by the compact support of .
import Mathlib import Definitions.Def_TaoFivePrimes_SmoothedExpSum import Definitions.Def_TaoFivePrimes_RepresentationCount open Finset
theorem TaoFivePrimes.minor_arc_bound_theorem51_corrected
(x alpha beta : ℝ) (a : ℤ) (q : ℕ) (hq : 4 ≤ q)
(haq : Nat.Coprime a.natAbs q)
(halpha : 4 * alpha = (a : ℝ) / q + beta)
(hbeta : |beta| ≤ 1 / (q : ℝ) ^ 2)
(U V : ℝ) (hU1 : 1 < U) (hV1 : 1 < V) (hUx : U < x) (hVx : V < x)
(hUV : U * V ≤ x / 4) (hUV2 : x ≤ U * V ^ 2)
(hU40 : 40 ≤ U) (hV40 : 40 ≤ V) :
‖TaoFivePrimes.smoothedExpSum TaoFivePrimes.eta0 2 x alpha‖ ≤
0.5 * (x / q) * Real.log x * (Real.log (2 * U * V / q + 4) + 4)
+ 0.89 * (U * V + (5 / 2) * q) * (8 + Real.log q) * Real.log (2 * x)
+ (0.1 * x / Real.sqrt q + 0.39 * x / Real.sqrt (x / q))
* Real.log (x / (U * V)) * Real.log (V * x / U)
+ (0.55 * x / Real.sqrt U + 1.1 * x / Real.sqrt V) * Real.log (x / U) := by sorry