Fermat's Last Theorem in Lean 4

← all definition modules

Definitions/Def_CuspForm_HeckeModuleCornerRealization.lean

definition module

Corner realisation of a local Hecke module in

Fix a complete discrete valuation ring \mathcal O with residue field k= IsLocalRing.ResidueField π’ͺ, a natural number p, a residual two-dimensional Galois representation \bar\rho over k (an object of ResidualGaloisRep), levels N,L\ge 1, a set S of naturals, a ring homomorphism \theta\colon \mathbb{T}= CuspForm.heckeAlgebra N 2 S \to k, a module M over the localised Hecke algebra CuspForm.heckeLocal N S π’ͺ ΞΈ which is also an \mathcal O-module, and an \mathcal O-bilinear form B\colon M\times M\to\mathcal O. The predicate IsCornerRealization asserts the existence of the following data. First, a proof hcomm that the operators opFamily L ⊀ S π’ͺ β€” the endomorphisms heckeTL attached to generators T_\ell (\ell prime, \ell\notin S, \ell\nmid L) and U_q (q prime, q\mid L), and the diamond operators diamondL β€” commute pairwise on the level-L carrier H1 L ⊀ π’ͺ; a system of scalars \bar\theta on the generators with values in k; an IdempotentSplitting Sp of the \mathcal O-subalgebra generated by these operators, i.e. complete orthogonal idempotents e_1,\dots,e_n together with maximal ideals \mathfrak m_1,\dots,\mathfrak m_n exhausting the maximal spectrum and satisfying e_i\in\mathfrak m_j \iff i\neq j; an index i_0; an \mathcal O-algebra map \pi_k from the corner ring e_{i_0}\cdot(-)\cdot e_{i_0} to k; a proof hpar that every element of the corner submodule e_{i_0}\cdotH1 L ⊀ π’ͺ lies in ModularCurve.Period.parabolicHoms π’ͺ (GammaH L ⊀) π’ͺ; and an \mathcal O-linear isomorphism e from M onto that corner submodule.

These data are required to satisfy: \bar\theta(T_\ell)=\theta(T_\ell) for all primes \ell\notin S with \ell\nmid L and \ell\nmid N; \bar\theta(U_q)=0 for primes q with q\mid L and q^2\mid L; \bar\theta(U_p)\neq 0 whenever p is prime, p\mid L, and \bar\rho, viewed through GaloisRepAdic.ofResidualGaloisRep, satisfies IsOrdinaryAt p; \pi_k sends the image in the corner ring of each generator's operator to \bar\theta of that generator; e intertwines the action of \pi(T_\ell) on M with heckeT L ⊀ β„“ π’ͺ on the carrier, for all primes \ell\notin S with \ell\nmid N; and B is the restriction along e of the level-L member Bfamβ‚€ π’ͺ L of the chosen family of pairings on parabolic homomorphisms. Thus IsCornerRealization is a predicate on the pair (M,B) recording that it is isomorphic, with its Hecke action and its pairing, to an idempotent corner of the level-L carrier cut out by a residual eigensystem with prescribed behaviour at the primes dividing L.

Relation to Mathlib

IdempotentSplitting, cornerSubmodule and the corner ring are the project's own layer over Mathlib's CompleteOrthogonalIdempotents and IsIdempotentElem.Corner (the corner ring being identified with the localisation at the corresponding maximal ideal); the cohomology carriers H1, their Hecke and diamond operators, the weight-two Hecke algebra and its localisation, and the pairing family Bfamβ‚€ are project notions with no Mathlib counterpart.

Where it is used

This is the invariant carried along the level-raising ladder of Hecke modules used in the modularity lifting argument: the Hecke modules attached to the curves X_0(L), together with their PoincarΓ©-type pairings, are asserted to be corner realisations, and from this shape one reads off self-duality, self-adjointness of the Hecke action and the normalisation of the U_q and U_p eigenvalues demanded by the local conditions at the primes of the level.

References

  1. A. Wiles, Modular elliptic curves and Fermat's Last Theorem, Annals of Mathematics 141 (1995), 443–551, Chapter 2, Β§Β§1–2
  2. H. Darmon, F. Diamond and R. Taylor, Fermat's Last Theorem, in: Current Developments in Mathematics 1995, International Press, 1995, 1–154, Β§4.2

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_CuspForm_HeckeModuleCornerRealization.lean

Imports

Imported by

  • no other definition module

Declarations

Source

import Definitions.Def_CohCarrier_Inst
import Definitions.Def_IharaLemma_IdempotentSplitting
import Definitions.Def_CuspForm_CornerPairingFamily
import Definitions.Def_CuspForm_HeckeLocal
import Definitions.Def_GaloisRep_LocalConditions
import Definitions.Def_GaloisRep_Residual
import Definitions.Def_GaloisRep_Adic

set_option autoImplicit false

set_option synthInstance.maxHeartbeats 400000
set_option maxHeartbeats 800000

namespace CuspForm.heckeLocal

open CohCarrier IharaLemma
open scoped IsMulCommutative

def IsCornerRealization
    {π’ͺ : Type} [CommRing π’ͺ] [IsDomain π’ͺ] [IsDiscreteValuationRing π’ͺ]
    [IsAdicComplete (IsLocalRing.maximalIdeal π’ͺ) π’ͺ]
    (p : β„•) (ρbar : ResidualGaloisRep (IsLocalRing.ResidueField π’ͺ))
    (N L : β„•) [NeZero N] [NeZero L] (S : Set β„•)
    (ΞΈ : β†₯(CuspForm.heckeAlgebra N 2 S) β†’+* IsLocalRing.ResidueField π’ͺ)
    (M : Type) [AddCommGroup M] [Module (CuspForm.heckeLocal N S π’ͺ ΞΈ) M] [Module π’ͺ M]
    (B : M β†’β‚—[π’ͺ] M β†’β‚—[π’ͺ] π’ͺ) : Prop :=
  βˆƒ (hcomm : βˆ€ g h : Gen L S,
        opFamily L ⊀ S π’ͺ g * opFamily L ⊀ S π’ͺ h = opFamily L ⊀ S π’ͺ h * opFamily L ⊀ S π’ͺ g)
    (ΞΈbar : Gen L S β†’ IsLocalRing.ResidueField π’ͺ)
    (Sp : IdempotentSplitting
      β†₯(hdata L ⊀ S π’ͺ (IsLocalRing.ResidueField π’ͺ) hcomm ΞΈbar).opSubalgebra)
    (iβ‚€ : Fin Sp.n)
    (Ο€k : Sp.CornerRing iβ‚€ →ₐ[π’ͺ] IsLocalRing.ResidueField π’ͺ)
    (hpar : βˆ€ v : H1 L ⊀ π’ͺ, v ∈ cornerSubmodule (M := H1 L ⊀ π’ͺ) (Sp.e iβ‚€) β†’
      v ∈ ModularCurve.Period.parabolicHoms π’ͺ (GammaH L ⊀) π’ͺ)
    (e : M ≃ₗ[π’ͺ] β†₯(cornerSubmodule (M := H1 L ⊀ π’ͺ) (Sp.e iβ‚€))),

    (βˆ€ (β„“ : β„•) (hβ„“ : β„“.Prime) (hβ„“S : β„“ βˆ‰ S) (hβ„“L : Β¬ β„“ ∣ L) (hβ„“N : Β¬ β„“ ∣ N),
      ΞΈbar (Gen.T β„“ hβ„“ hβ„“S hβ„“L) = ΞΈ (CuspForm.heckeAlgebra.T hβ„“ hβ„“N hβ„“S)) ∧
    (βˆ€ (q : β„•) (hq : q.Prime) (hqL : q ∣ L), q ^ 2 ∣ L β†’ ΞΈbar (Gen.U q hq hqL) = 0) ∧
    (βˆ€ (hp : p.Prime) (hpL : p ∣ L), (GaloisRepAdic.ofResidualGaloisRep ρbar).IsOrdinaryAt p β†’
      ΞΈbar (Gen.U p hp hpL) β‰  0) ∧

    (βˆ€ g : Gen L S, Ο€k (Sp.toCornerRing iβ‚€
      ⟨(hdata L ⊀ S π’ͺ (IsLocalRing.ResidueField π’ͺ) hcomm ΞΈbar).op g,
        Algebra.subset_adjoin (Set.mem_range_self g)⟩) = θbar g) ∧

    (βˆ€ (β„“ : β„•) (hβ„“ : β„“.Prime) (hβ„“S : β„“ βˆ‰ S) (hβ„“N : Β¬ β„“ ∣ N) (m : M),
      ((e (CuspForm.heckeLocal.Ο€ N S π’ͺ ΞΈ (CuspForm.heckeAlgebra.T hβ„“ hβ„“N hβ„“S) β€’ m) :
          β†₯(cornerSubmodule (M := H1 L ⊀ π’ͺ) (Sp.e iβ‚€))) : H1 L ⊀ π’ͺ) =
        (haveI : NeZero β„“ := ⟨hβ„“.ne_zero⟩;
          heckeT L ⊀ β„“ π’ͺ ((e m : β†₯(cornerSubmodule (M := H1 L ⊀ π’ͺ) (Sp.e iβ‚€))) : H1 L ⊀ π’ͺ))) ∧

    (βˆ€ m m' : M, B m m' =
      CuspForm.Bfamβ‚€ π’ͺ L ⟨(e m : H1 L ⊀ π’ͺ), hpar _ (e m).2⟩ ⟨(e m' : H1 L ⊀ π’ͺ), hpar _ (e m').2⟩)

end CuspForm.heckeLocal

Statements phrased using this module (16)