Contribution of a simple pole to the truncated smoothed Perron integral: up to
ProvedDavenport.perron_polar_integralThroughout, is a fixed smoothing kernel: a function on supported in , nonnegative on , with ; Smooth1 ν ε is the smoothed indicator of obtained by Mellin convolution with the delta-spike (it equals on , on , and lies in ), and is its Mellin transform (Mathlib's mellin).
Statement. There is a constant (depending only on ) such that for all , , and every with , writing ,
The integrand is meromorphic in with a single simple pole at , of residue ; shifting the line of integration to (where and ) picks up this residue, and the parts of the line with contribute because there. In the contour method for the polar parts of the generating function are treated by this lemma exactly, so that the remaining holomorphic part can be shifted into the zero-free region without meeting any pole.
Formalization Note. The integral is written as with as a real number cast to ; is the complex power of the positive real .
import Definitions.Def_MellinCalculus_defs import Definitions.Def_ResidueCalcOnRectangles_defs import Mathlib.NumberTheory.LSeries.Basic import Mathlib.NumberTheory.ArithmeticFunction.VonMangoldt import Mathlib.Analysis.MellinTransform import Mathlib.Analysis.SpecialFunctions.Pow.Real import Mathlib.Analysis.SpecialFunctions.Pow.Complex import Mathlib.Analysis.SpecialFunctions.Log.Basic import Mathlib.Analysis.SpecialFunctions.Integrals.Basic import Mathlib.MeasureTheory.Integral.IntervalIntegral.Basic open Set MeasureTheory
namespace Davenport
theorem perron_polar_integral {ν : ℝ → ℝ} (diffν : ContDiff ℝ 1 ν)
(suppν : ν.support ⊆ Icc (1 / 2) 2) (νnonneg : ∀ x > 0, 0 ≤ ν x)
(mass_one : ∫ x in Ioi (0 : ℝ), ν x / x = 1) :
∃ C : ℝ, 0 < C ∧
∀ (X : ℝ), 3 < X → ∀ ε : ℝ, 0 < ε → ε < 1 → ∀ T : ℝ, 3 < T →
∀ p : ℂ, 1 / 2 ≤ p.re → p.re ≤ 1 →
‖(1 / (2 * Real.pi * Complex.I)) * (Complex.I * ∫ t in (-T)..T,
mellin (fun x ↦ (Smooth1 ν ε x : ℂ)) ((1 + (Real.log X)⁻¹ : ℝ) + t * Complex.I)
* (X : ℂ) ^ ((1 + (Real.log X)⁻¹ : ℝ) + t * Complex.I)
/ (((1 + (Real.log X)⁻¹ : ℝ) + t * Complex.I) - p))
- mellin (fun x ↦ (Smooth1 ν ε x : ℂ)) p * (X : ℂ) ^ p‖
≤ C * (X ^ (1 / 4 : ℝ) / ε + X * Real.log X / (ε * T)) := by sorry
end Davenport