Siegel's theorem: (Davenport §21)
ProvedDavenport.siegelSiegel's theorem, first form (Davenport §21, opening sentence): for any there exists a positive number such that, if is a real primitive character to the modulus , then
Formally, for every there is such that for all and all quadratic (IsQuadratic), non-principal, primitive Dirichlet characters modulo , . Since is real for a real character, the real part is the value itself. The constant is ineffective (the proof gives no way to compute it); the statement is a plain existential.
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
namespace Davenport
theorem siegel (ε : ℝ) (hε : 0 < ε) :
∃ C : ℝ, 0 < C ∧
∀ (q : ℕ) [NeZero q] (χ : DirichletCharacter ℂ q),
χ.IsQuadratic → χ ≠ 1 → χ.IsPrimitive →
C * (q : ℝ) ^ (-ε) < (DirichletCharacter.LFunction χ 1).re := by sorry
end DavenportRead-back
What the Lean code literally says, in plain math · claude-opus-4-8
Read-back of Davenport.siegel.
Fix a real number and assume (no upper bound on is imposed). The statement asserts: there exists a real number such that and such that, for every natural number that is nonzero (the instance hypothesis , i.e. ) and for every Dirichlet character modulo with values in satisfying the three hypotheses
- is quadratic: every value of lies in ,
- , i.e. is not the trivial (principal) character modulo ,
- is primitive: the conductor of equals ,
one has the strict inequality
where is the real power of the real number with exponent , and denotes the value at of the analytically continued Dirichlet -function attached to (Mathlib's DirichletCharacter.LFunction), of which only the real part is taken.
Quantifier order matters here: is chosen after but before and , so a single positive constant , allowed to depend only on , must work simultaneously for all admissible moduli and all admissible characters mod . Conversely, is only required to exist — nothing pins down its value, no explicit formula is demanded, and no claim of effectivity or computability is made.
Several features of the claim are worth spelling out literally. The conclusion is a lower bound and it is strict (, not ). It bounds the real part only; the statement does not assert that is a real number, and it makes no claim about or about being nonzero as a complex number (though a positive lower bound on the real part does force ). There is no "for all sufficiently large " clause and no exclusion of small moduli: the inequality is asserted for every admitting such a . The modulus is excluded by the instance, so the degenerate real power never arises; for we have , so the left-hand side is genuinely positive.
The hypotheses are vacuously unsatisfiable for some moduli, in which case the assertion says nothing about them: for and the group of units of is trivial, so the only Dirichlet character mod is the trivial one and the hypothesis can never hold; more generally, for any admitting no primitive nontrivial quadratic character the universally quantified statement is empty. The theorem therefore constrains only through those that do carry a primitive nontrivial quadratic character.
Finally, note what the statement does not involve. The imported definitions from the bundle — (psiAP, a truncated von Mangoldt sum over an arithmetic progression), regionBoundary, InRegion, IsExceptionalSet (a zero-free-region-with-at-most-one-exception predicate), and the character sums gaussE and vmSumChar — appear nowhere in the assertion; they are only ambient definitions in the dependency files. The statement mentions no exceptional zero, no Siegel zero, no zero-free region, and no arithmetic progression: it is exactly the single inequality under the three hypotheses above, for a constant depending only on .
Confirmed by the mission captain (proposal self-audit).