Tao Lemma 4.6: the local estimate on a Farey system of major arcs
ProvedTaoFivePrimes.local_L2_estimateLet and let
be the union of the major arcs of radius around the fractions of denominator at most . Let be an integrable function on which obeys Montgomery's uncertainty inequality
Then
where is the Möbius function, the Euler totient, the probability Haar measure on , and the distance to the nearest integer.
Applied to with — for which the Montgomery hypothesis is exactly Lemma 4.4 of the source and for which the total integral is at most by the global estimate — this is the source's local estimate
which removes almost the whole logarithmic loss of the global bound by restricting to major arcs. The mechanism is that the translates , over reduced fractions with -rough denominator , are pairwise disjoint, so the Montgomery inequality can be averaged over them against the single global bound; the total weight of the translates is , which is at least divided by the Mertens product.
Formalization Note The result is stated for an arbitrary nonnegative integrable satisfying the Montgomery inequality rather than for specifically; that inequality, the source's Lemma 4.4, is therefore carried as a hypothesis, and the conclusion is written as so that no division by occurs at . The arcs are taken open rather than closed; the two versions of differ by a null set, and the source likewise only asserts that the translates are disjoint up to null sets. The inner union over runs over all residues rather than the reduced ones, which gives the same set since an unreduced fraction reduces to one with a smaller denominator.
import Mathlib open Finset MeasureTheory
theorem TaoFivePrimes.local_L2_estimate (Q R : ℕ) (hQ : 1 ≤ Q) (hR : 1 ≤ R)
(f : AddCircle (1 : ℝ) → ℝ) (hf0 : ∀ α, 0 ≤ f α)
(hfi : MeasureTheory.Integrable f AddCircle.haarAddCircle)
(hmup : ∀ q1 : ℕ, 0 < q1 → q1 ≤ R → ∀ α : AddCircle (1 : ℝ),
((ArithmeticFunction.moebius q1 : ℝ)) ^ 2 / (Nat.totient q1 : ℝ) * f α
≤ ∑ a ∈ (Finset.range q1).filter (fun a => Nat.Coprime a q1),
f (α + (((a : ℝ) / q1 : ℝ) : AddCircle (1 : ℝ)))) :
Real.log R *
(∫ α in (⋃ q0 ∈ Finset.Icc 1 Q, ⋃ a0 ∈ Finset.range q0,
Metric.ball ((((a0 : ℝ) / q0 : ℝ) : AddCircle (1 : ℝ)))
(1 / (2 * (Q : ℝ) ^ 2 * (R : ℝ) ^ 2))),
f α ∂AddCircle.haarAddCircle)
≤ (∏ p ∈ (Finset.Icc 1 Q).filter Nat.Prime, ((p : ℝ) / ((p : ℝ) - 1)))
* ∫ α, f α ∂AddCircle.haarAddCircle := by sorry