Tao Theorem 5.1 as its proof gives it
ProvedTaoFivePrimes.minor_arc_bound_theorem51_as_provedBound for minor arc sums, with the constants its own proof yields. Let for a natural number with and . Let with , and . Then
This is the source's Theorem 5.1 with each of its four terms replaced by what its own chain of estimates delivers. The source prints , and where this statement has (with an extra additive ), and . It is still strong enough for everything the source does with it: the exponential sum estimate of Theorem 1.3 follows from this form with its printed constants, at rather than the source's , .
Where the three changes come from
The factor in the first two terms. The Type I argument bounds each block by Corollary 3.5. That block has length exactly , so the corollary's prefactor is , giving with and . The source's display uses , that is prefactor . Carrying the correct prefactor doubles both the harmonic term and the block bookkeeping, and becomes .
The additive . The integral test compares a decreasing summand with the integral over the preceding block of length , which covers but not ; the uncovered term is . At , the sum is and the printed bound .
The last constant. In the square-root expansion of the Type II envelope the cross term is , coefficient and not ; integrating against turns 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.
import Mathlib import Definitions.Def_TaoFivePrimes_SmoothedExpSum import Definitions.Def_TaoFivePrimes_RepresentationCount open Finset
theorem TaoFivePrimes.minor_arc_bound_theorem51_as_proved
(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‖ ≤
(x / q) * Real.log x * (Real.log (2 * U * V / q + 4) + 4)
+ 1.78 * (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