for non-principal , given the zero-free region
ProvedDavenport.psi_char_of_region_nonprincipalThe prime number theorem for a non-principal character, given the zero-free region (Davenport §20, non-principal case). Fix a region constant . There are constants , depending only on , such that for every modulus , every non-principal Dirichlet character modulo , every exceptional set for with respect to (IsExceptionalSet c χ E: at most one real zero of in the region , only for quadratic , and no other zero in the region) whose elements are simple zeros (), and every integer with
one has
where . That is, , the term being present exactly when has an exceptional zero .
This is the non-principal case of Davenport's §20 estimate (the principal character reduces to the prime number theorem with de la Vallée Poussin error term). It is proved by the contour-integral (Perron) method: is expressed through on a vertical line, the contour is moved to the left edge of the zero-free region, the exceptional zero contributes the residue , and the bound on the contour together with the choice gives the error term.
Formalization Note The statement is Davenport.psi_char_of_region restricted to , with the additional hypothesis that the elements of are simple zeros, as in Davenport's formulation ( is simple by §14). The sum over is a finite sum (finsum) over the at most one element of ; is the complex power (N : ℂ) ^ β.
import Definitions.Def_Davenport_siegelWalfisz import Mathlib.NumberTheory.LSeries.DirichletContinuation import Mathlib.NumberTheory.DirichletCharacter.Basic import Mathlib.NumberTheory.ArithmeticFunction.VonMangoldt import Mathlib.NumberTheory.Chebyshev import Mathlib.Analysis.SpecialFunctions.Pow.Real import Mathlib.Analysis.SpecialFunctions.Pow.Complex import Mathlib.Analysis.SpecialFunctions.Log.Basic import Mathlib.Analysis.SpecialFunctions.Exp import Mathlib.Analysis.SpecialFunctions.Sqrt import Mathlib.Algebra.BigOperators.Finprod import Mathlib.Data.Nat.Totient open Finset DirichletCharacter Vino
open Finset DirichletCharacter Vino
namespace Davenport
theorem psi_char_of_region_nonprincipal (c : ℝ) (hc : 0 < c) :
∃ c₁ c₂ C : ℝ, 0 < c₁ ∧ 0 < c₂ ∧ 0 < C ∧
∀ (q : ℕ) [NeZero q] (χ : DirichletCharacter ℂ q), χ ≠ 1 →
∀ E : Set ℂ, IsExceptionalSet c χ E →
(∀ z ∈ E, deriv (DirichletCharacter.LFunction χ) z ≠ 0) →
∀ N : ℕ, 2 ≤ N → (q : ℝ) ≤ Real.exp (c₂ * Real.sqrt (Real.log N)) →
‖vmSumChar q χ N + ∑ᶠ z ∈ E, (N : ℂ) ^ z / z‖
≤ C * N * Real.exp (-c₁ * Real.sqrt (Real.log N)) := by sorry
end Davenport