Tao Section 5: the pointwise bound for the dyadic Type II sums
ProvedTaoFivePrimes.typeII_pointwiseLet and , and suppose both intervals and have length at least . Let be a frequency for which
i.e. is a lower bound for the separation . Let be supported on the odd integers of with there, and supported on the odd integers of with . Then
This is the pointwise estimate for the dyadic pieces of the Type II sum in the source's minor-arc theorem, with the two masses already evaluated. In the application is the centred divisor coefficient of Vaughan's identity, for which , and , for which ; the two intervals are the dyadic ranges of and . The subdivision form of the odd-restricted bilinear large sieve is applied with subdivision parameter , and the resulting masses are the source's
the factor in front is the one produced by .
Formalization Note The subdivision corollary and the two counting bounds are imported; the large sieve inequality itself, which the subdivision corollary quotes, is carried through as the hypothesis hsls. Intervals are half-open with integer floor endpoints. The separation is given as an explicit lower bound rather than as an infimum, which is how it is used and which avoids a nonemptiness side condition; in the application by the source's computation (ala).
import Mathlib import Definitions.Def_TaoFivePrimes_Explicit open Finset
theorem TaoFivePrimes.typeII_pointwise (x W q alpha delta : ℝ)
(hx : 0 < x) (hW : 2 ≤ W) (hq : 2 ≤ q) (hdelta : 0 < delta)
(hIlen : 2 ≤ W / 2) (hJlen : 2 ≤ x / (2 * W))
(hd : ∀ j : ℤ, 1 ≤ j → (j : ℝ) ≤ q / 2 →
delta ≤ |(j : ℝ) * (4 * alpha) - round ((j : ℝ) * (4 * alpha))|)
(hsls : ∀ (a' b' : ℤ → ℂ), Summable (fun n : ℤ => ‖a' n‖ ^ 2) →
Summable (fun n : ℤ => ‖b' n‖ ^ 2) →
∀ beta u1 v1 u2 v2 d : ℝ, 1 ≤ v1 - u1 → 1 ≤ v2 - u2 → 0 < d →
(∀ j : ℤ, 1 ≤ j → (j : ℝ) ≤ v2 - u2 →
d ≤ |(j : ℝ) * beta - round ((j : ℝ) * beta)|) →
‖∑ n ∈ Finset.Ioc ⌊u1⌋ ⌊v1⌋, ∑ m ∈ Finset.Ioc ⌊u2⌋ ⌊v2⌋,
a' n * b' m * TaoFivePrimes.eR (beta * (n : ℝ) * (m : ℝ))‖
≤ Real.sqrt ((v1 - u1) + 1 / d)
* Real.sqrt (∑' n : ℤ, ‖a' n‖ ^ 2) * Real.sqrt (∑' n : ℤ, ‖b' n‖ ^ 2))
(a b : ℤ → ℂ)
(ha0 : ∀ n, n ∉ (Finset.Ioc ⌊W / 2⌋ ⌊W⌋).filter (fun n : ℤ => Odd n) → a n = 0)
(hb0 : ∀ m, m ∉ (Finset.Ioc ⌊x / (2 * W)⌋ ⌊x / W⌋).filter (fun m : ℤ => Odd m) → b m = 0)
(hab : ∀ n ∈ (Finset.Ioc ⌊W / 2⌋ ⌊W⌋).filter (fun n : ℤ => Odd n),
‖a n‖ ≤ (1 / 2) * Real.log (n : ℝ))
(hbb : ∀ m ∈ (Finset.Ioc ⌊x / (2 * W)⌋ ⌊x / W⌋).filter (fun m : ℤ => Odd m), ‖b m‖ ≤ 1) :
‖∑ n ∈ (Finset.Ioc ⌊W / 2⌋ ⌊W⌋).filter (fun n : ℤ => Odd n),
∑ m ∈ (Finset.Ioc ⌊x / (2 * W)⌋ ⌊x / W⌋).filter (fun m : ℤ => Odd m),
a n * b m * TaoFivePrimes.eR (alpha * (n : ℝ) * (m : ℝ))‖
≤ (1 / 2) * Real.sqrt (W / 4 + 1 / delta)
* Real.sqrt ((⌊x / (2 * W * q)⌋₊ : ℝ) + 1)
* Real.sqrt ((W / 4 + 1) * Real.log W ^ 2)
* Real.sqrt (x / (4 * W) + 1) := by sorry