Tao Section 6 from Theorem 5.1 as its proof gives it
ProvedTaoFivePrimes.exp_sum_estimate_from_theorem51_as_provedLet , let with , and , and let every prime factor of be at most . Assume the minor-arc bound in the form the source's own argument yields: for every admissible — that is with , , —
Then
This says that the three constants of Theorem 5.1 that its proof does not support cost nothing downstream: the exponential sum estimate of Theorem 1.3 comes out unchanged. The source's own choice , no longer works — with the doubled second term it overshoots the coefficient — but the balanced choice
does, and comfortably. Writing , the binding inequality becomes , whose value at is . The passage from the sifting modulus to the general modulus is the source's Lemma 4.1, public and proved on the platform as TaoFivePrimes.smoothedExpSum_modulus_change.
Formalization Note The minor-arc bound is carried as a hypothesis quantified over all admissible , so this statement isolates exactly the content of Section 6 and can be proved independently of Section 5. The power is the real power x ^ (4/5 : ℝ).
import Mathlib import Definitions.Def_TaoFivePrimes_SmoothedExpSum import Definitions.Def_TaoFivePrimes_RepresentationCount open Finset
theorem TaoFivePrimes.exp_sum_estimate_from_theorem51_as_proved
(x α β : ℝ) (a : ℤ) (q q₀ : ℕ)
(hx : (10 : ℝ) ^ 20 ≤ x)
(hq : 100 ≤ q) (hqx : (q : ℝ) ≤ x / 100)
(haq : Nat.Coprime a.natAbs q)
(hα : 4 * α = (a : ℝ) / q + β)
(hβ : |β| ≤ 1 / (q : ℝ) ^ 2)
(hq₀ : ∀ p ∈ q₀.primeFactors, (p : ℝ) ≤ Real.sqrt x)
(hminor : ∀ U V : ℝ, 1 < U → 1 < V → U < x → V < x → U * V ≤ x / 4 → x ≤ U * V ^ 2 →
40 ≤ U → 40 ≤ V →
‖TaoFivePrimes.smoothedExpSum TaoFivePrimes.eta0 2 x α‖ ≤
(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)) :
‖TaoFivePrimes.smoothedExpSum TaoFivePrimes.eta0 q₀ x α‖ ≤
(0.14 * x / Real.sqrt q + 0.64 * x / Real.sqrt (x / q) + 0.15 * x ^ (4 / 5 : ℝ))
* Real.log x * (Real.log x + 11.3) := by sorry