Fermat's Last Theorem in Lean 4

← all definition modules

Definitions/Def_NumberField_CompletedRayL.lean

definition module

Partial zeta functions and completed ray class L-functions

Throughout, K is a number field. For a modulus \mathfrak f \subseteq \mathcal O_K, a class C in the narrow ray class group \mathtt{NarrowRayClassGroup}\,K\,\mathfrak f β€” the quotient of the subgroup coprimeToModulus K 𝔣 of invertible fractional ideals whose valuation \mathrm{count}_v vanishes at every height-one prime v dividing \mathfrak f, by the subgroup generated by the principal ideals (\alpha) with \alpha \neq 0, \alpha - 1 \in \mathfrak f and \tau(\alpha) > 0 for every ring homomorphism \tau \colon K \to \mathbb R β€” and a natural number n, rayZetaCoeff K 𝔣 C n is the cardinality (as a Nat.card, hence 0 on an infinite type) of the type of nonzero integral ideals I of \mathcal O_K with \mathrm{N}(I) = n such that the associated invertible fractional ideal FractionalIdeal.mk0 K I lies in coprimeToModulus K 𝔣 and its narrow ray class is C.

Then rayZeta K 𝔣 C s is Mathlib's LSeries of the coefficient function n \mapsto rayZetaCoeff K 𝔣 C n, that is \sum_{n \ge 1} \mathrm{rayZetaCoeff}(n)\, n^{-s} as a tsum, so it takes the value 0 where the series fails to be summable. For a monoid homomorphism \chi from the narrow ray class group to \mathbb C, rayClassLSeries K 𝔣 Ο‡ s is the unrestricted sum \sum_C' \chi(C)\, \zeta(s, C) over all classes. Finally, for a finite set S of real infinite places of K, completedRayL K 𝔣 Ο‡ S s is (|d_K| \cdot \mathrm{N}\mathfrak f)^{s/2} \, \Gamma_{\mathbb R}(s)^{r_1 - \#S} \, \Gamma_{\mathbb R}(s+1)^{\#S} \, \Gamma_{\mathbb C}(s)^{r_2} \, L(s, \chi), with r_1, r_2 the numbers of real and complex places, \Gamma_{\mathbb R} and \Gamma_{\mathbb C} Mathlib's Deligne \Gamma-factors, and the exponent r_1 - \#S formed by truncated subtraction of natural numbers. The set S records the signature of \chi at the real places only through these \Gamma-factors; no compatibility between \chi and S, and no primitivity or finiteness condition on \mathfrak f or \chi, is imposed in the definitions, which are therefore total.

Relation to Mathlib

Built on Mathlib's LSeries, Complex.Gammaℝ/Complex.Gammaβ„‚, NumberField.discr, Ideal.absNorm and the counts of real and complex infinite places; the narrow ray class group used here is the project's own construction, and Mathlib has no partial zeta function or completed ray class L-function.

Where it is used

These are the analytic objects attached to a character of a narrow ray class group: the partial zeta functions of the individual classes, their \chi-weighted sum, and the \Gamma- and conductor-completed L-function in the shape in which analytic continuation and a functional equation are formulated. At \mathfrak f = \top the prefactor reduces to |d_K|^{s/2} and the construction specialises to the narrow class group case.

References

  1. J. Neukirch, Algebraic Number Theory, Grundlehren der mathematischen Wissenschaften 322, Springer, 1999, Ch. VII
  2. S. Lang, Algebraic Number Theory, 2nd edition, Graduate Texts in Mathematics 110, Springer, 1994

References are suggested automatically and have not been individually verified.

English text generated automatically from the Lean source; the Lean statement is authoritative.

Source file: Definitions/Def_NumberField_CompletedRayL.lean

Imports

Imported by

  • no other definition module

Declarations

Source

import Definitions.Def_NarrowRayClassGroup
import Mathlib.NumberTheory.LSeries.Basic β†—
import Mathlib.Analysis.SpecialFunctions.Gamma.Deligne β†—

set_option autoImplicit false

open NumberField NumberField.InfinitePlace Complex Deep.NTSupply nonZeroDivisors

namespace M4aTorus

noncomputable section

variable (K : Type*) [Field K] [NumberField K]

def rayZetaCoeff (𝔣 : Ideal (π“ž K)) (C : NarrowRayClassGroup K 𝔣) (n : β„•) : β„• :=
  Nat.card {I : (Ideal (π“ž K))⁰ // Ideal.absNorm (I : Ideal (π“ž K)) = n ∧
    βˆƒ hc : FractionalIdeal.mk0 K I ∈ coprimeToModulus K 𝔣,
      NarrowRayClassGroup.mk K 𝔣 ⟨FractionalIdeal.mk0 K I, hc⟩ = C}

def rayZeta (𝔣 : Ideal (π“ž K)) (C : NarrowRayClassGroup K 𝔣) (s : β„‚) : β„‚ :=
  LSeries (fun n ↦ rayZetaCoeff K 𝔣 C n) s

def rayClassLSeries (𝔣 : Ideal (π“ž K)) (Ο‡ : NarrowRayClassGroup K 𝔣 β†’* β„‚) (s : β„‚) : β„‚ :=
  βˆ‘' C : NarrowRayClassGroup K 𝔣, Ο‡ C * rayZeta K 𝔣 C s

def completedRayL (𝔣 : Ideal (π“ž K)) (Ο‡ : NarrowRayClassGroup K 𝔣 β†’* β„‚)
    (S : Finset {w : InfinitePlace K // IsReal w}) (s : β„‚) : β„‚ :=
  ((|(discr K : ℝ)| * (Ideal.absNorm 𝔣 : ℝ) : ℝ) : β„‚) ^ (s / 2) *
    Gammaℝ s ^ (nrRealPlaces K - S.card) * Gammaℝ (s + 1) ^ S.card *
    Gammaβ„‚ s ^ nrComplexPlaces K * rayClassLSeries K 𝔣 Ο‡ s

end

end M4aTorus

Statements phrased using this module (6)