Fermat's Last Theorem in Lean 4

← all definition modules

Definitions/Def_CerednikDrinfeld_DescentIntertwining_v2.lean

definition module

Čerednik descent intertwining data over a Hecke tower

CerednikDrinfeld.DescentIntertwining is one predicate on a whole package of data, asserting fourteen compatibilities between an abstract tower of function fields over \overline{\mathbb Q} and the field of meromorphic functions on a Drinfeld upper half-plane. The data are: a natural number r and two indices i_r,i_{\bar r}\in\{0,1\}; a valuation subring A of \overline{\mathbb Q} (with the DecompositionIsometric hypothesis registered), its completion A.valuation.Completion and the subfield ValuationSubring.ratClosure A inside it; a rational quaternion algebra \mathbb H[\mathbb Q,a,b] with a homomorphism \rho from its unit group to \mathrm{PGL}_2 of that subfield; a pseudo-uniformiser \varpi, i.e. an element of the subfield whose image has valuation strictly between 0 and 1 and such that every nonzero element of the subfield has valuation squeezed between v(\varpi)^{N} and v(\varpi)^{-N} for some N; the ring Omega.HolRingOf ϖ ρ of functions on the upper half-plane whose restriction to each affinoid affinoid ϖ n is a uniform limit of uniformly bounded pole-free rational functions, assumed to be a domain and carrying the quaternion units through \rho by Möbius precomposition; level subgroups \Gamma_j indexed by HeckeTower.Obj q q' (a base level together with one level per prime \ell\notin\{q,q'\}), elements w_j,\bar w_j per level and s_\ell per prime; a homomorphism dIso from the decomposition subgroup D_A to the valuation-preserving ring automorphisms of the completion fixing the subfield pointwise; on the other side a field F_0 over \overline{\mathbb Q} and a HeckeTower.TowerData \mathbb T (fields F_\ell that are curves over \overline{\mathbb Q}, each with two finite integral \overline{\mathbb Q}-algebra maps \varphi_{\ell,0},\varphi_{\ell,1} from F_0), semilinear D_A-actions gal₀ on F_0 and galT ℓ on F_\ell, two distinguished semilinear automorphisms W_0,W_1 of F_0 and W_{\ell,0},W_{\ell,1} of each F_\ell; finally a character \chi of D_A with values in the group of order two and ring homomorphisms \iota_j from the level-j field of the tower to \operatorname{Frac} of the holomorphic ring.

The asserted conjunction is: \chi is trivial on A.inertiaSubgroupIn ℚ; \chi(\varphi)\ne 1 for every \varphi with A.IsFrobeniusAt φ r; \chi(\tau)=1 exactly when \tau fixes every element x of the residue field of A with x^{r^2}=x; each \iota_j restricted to \overline{\mathbb Q} is the canonical map into the completion followed by the structure map; for each level the subfield generated by the constants (the image of the completion) and the image of \iota_j is exactly Mumford.invariantFieldOf for \Gamma_j, i.e. the subfield of elements fixed by every \gamma\in\Gamma_j; each \iota_j sends finite \overline{\mathbb Q}-linearly independent families to families linearly independent over the completion; for every \tau\in D_A and every x, \iota_j(\mathrm{gal}_\tau\cdot x) equals the image of \iota_j(x) under the semilinear automorphism of the fraction field induced by dIso τ, twisted by 1 or by w_j according as \chi(\tau)=1 or not (stated separately for the base level and for each \ell); \iota_j turns the semilinear automorphism with index i_r into multiplication by w_j and the one with index i_{\bar r} into \bar w_j, again level by level; and the two degeneracy maps satisfy \iota_{\ell}\circ\varphi_{\ell,0}=\iota_{0} and \iota_{\ell}\circ\varphi_{\ell,1}=s_\ell\cdot\iota_{0}. No characterising law of the parameters (\rho, \varpi, the \Gamma_j, w_j, s_\ell) is part of the predicate; these are pure compatibilities of the chosen maps.

Relation to Mathlib

Mathlib has no notion of the Drinfeld upper half-plane, of its rings of rigid-holomorphic functions, or of an intertwining condition of this kind; the structures entering the statement (PseudoUniformizer, HolRingOf, IsometricAut, AmbientSemilinearAut, invariantFieldOf, TowerData) are the project's own, built over Mathlib's valuation subrings and their decomposition subgroups, FractionRing, and the fixed-field machinery FixedPoints.intermediateField.

Where it is used

The predicate isolates, for one of the two discriminant primes, the data and identities that the Čerednik interchange supplies for the canonical model of a Shimura curve and its prime-to-qq' Hecke tower: one consumer asserts that such \chi and \iota_j exist, while the quaternionic, Mumford-side results take them as input and read off degenerate coverings, class-set descriptions and the Hecke and Atkin–Lehner laws on the \overline{\mathbb Q}-side fields.

References

  1. I. V. Čerednik, Uniformization of algebraic curves by discrete arithmetic subgroups of PGL_2(k_w) with compact quotient, Mat. Sbornik 100 (1976), 59–88
  2. V. G. Drinfeld, Coverings of p-adic symmetric domains, Funktsional. Anal. i Prilozhen. 10 (1976), 29–40
  3. J.-F. Boutot and H. Carayol, Uniformisation p-adique des courbes de Shimura: les théorèmes de Čerednik et de Drinfeld, Astérisque 196–197 (1991), 45–158

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

Imports

Imported by

  • no other definition module

Declarations

Source

import Definitions.Def_CerednikDrinfeld_HeckeTower
import Definitions.Def_CerednikDrinfeld_MumfordQuotient
import Definitions.Def_CerednikDrinfeld_DrinfeldHolomorphic
import Definitions.Def_ValuationSubring_CompletionRatClosure
import Definitions.Def_ValuationSubring_CompletionDecompositionAction
import Definitions.Def_EllipticCurve_FrobeniusTrace

set_option autoImplicit false

noncomputable section

open scoped TensorProduct Quaternion NumberField MatrixGroups
open IsDedekindDomain QuaternionAlgebra CerednikDrinfeld CerednikDrinfeld.Mumford CerednikDrinfeld.Omega AlgebraicCurve

namespace CerednikDrinfeld

def DescentIntertwining

    {q q' : ℕ} (r : ℕ) (ir irbar : Fin 2)
    (A : ValuationSubring (AlgebraicClosure ℚ))
    [Fact (A.DecompositionIsometric ℚ)]
    [DecidableEq A.valuation.Completion]

    {a b : ℚ}
    (ρ : (ℍ[ℚ, a, b])ˣ →* PGL(2, ↥(ValuationSubring.ratClosure A)))
    (ϖ : Omega.PseudoUniformizer ↥(ValuationSubring.ratClosure A) A.valuation.Completion)
    [IsDomain (Omega.HolRingOf ϖ ρ)]
    (Γ : HeckeTower.Obj q q' → Subgroup (ℍ[ℚ, a, b])ˣ)

    (w wbar : HeckeTower.Obj q q' → (ℍ[ℚ, a, b])ˣ)
    (s : HeckeTower.AwayPrime q q' → (ℍ[ℚ, a, b])ˣ)

    (dIso : ↥(A.decompositionSubgroup ℚ) →* Omega.IsometricAut ↥(ValuationSubring.ratClosure A) A.valuation.Completion)

    (F₀ : Type) [Field F₀] [Algebra (AlgebraicClosure ℚ) F₀]
    (𝕋 : HeckeTower.TowerData q q' F₀)
    (gal₀ : ↥(A.decompositionSubgroup ℚ) →* SemilinearAut (AlgebraicClosure ℚ) F₀)
    (galT : ∀ ℓ : HeckeTower.AwayPrime q q', ↥(A.decompositionSubgroup ℚ) →* SemilinearAut (AlgebraicClosure ℚ) (𝕋.F ℓ))
    (W : Fin 2SemilinearAut (AlgebraicClosure ℚ) F₀)
    (WT : ∀ ℓ : HeckeTower.AwayPrime q q', Fin 2SemilinearAut (AlgebraicClosure ℚ) (𝕋.F ℓ))

    (χ : ↥(A.decompositionSubgroup ℚ) →* Multiplicative (ZMod 2))
    (ιM : ∀ j : HeckeTower.Obj q q', 𝕋.objField j →+* FractionRing (Omega.HolRingOf ϖ ρ)) : Prop :=

  (∀ τ : ↥(A.decompositionSubgroup ℚ),
      (τ : AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ) ∈ A.inertiaSubgroupIn ℚ → χ τ = 1) ∧
  (∀ φ : ↥(A.decompositionSubgroup ℚ),
      A.IsFrobeniusAt (φ : AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ) r → χ φ ≠ 1) ∧
  (∀ τ : ↥(A.decompositionSubgroup ℚ), χ τ = 1
      ∀ x : IsLocalRing.ResidueField ↥A, x ^ (r ^ 2) = x → τ • x = x) ∧

  (∀ (j : HeckeTower.Obj q q') (z : AlgebraicClosure ℚ),
      ιM j (algebraMap (AlgebraicClosure ℚ) (𝕋.objField j) z)
        = algebraMap A.valuation.Completion (FractionRing (Omega.HolRingOf ϖ ρ))
            ((z : AlgebraicClosure ℚ) : A.valuation.Completion)) ∧
  (∀ j : HeckeTower.Obj q q',
      Subfield.closure (Set.range (algebraMap A.valuation.Completion (FractionRing (Omega.HolRingOf ϖ ρ))) ∪ Set.range (ιM j))
        = Mumford.invariantFieldOf A.valuation.Completion (ℍ[ℚ, a, b])ˣ (Omega.HolRingOf ϖ ρ) (Γ j)) ∧
  (∀ (j : HeckeTower.Obj q q') (t : Finset (𝕋.objField j)),
      LinearIndependent (AlgebraicClosure ℚ) (fun x : t => (x : 𝕋.objField j)) →
      LinearIndependent A.valuation.Completion (fun x : t => ιM j (x : 𝕋.objField j))) ∧

  (∀ (τ : ↥(A.decompositionSubgroup ℚ)) (x : F₀),
      ιM none (gal₀ τ • x)
        = (if χ τ = 1 then (1 : (ℍ[ℚ, a, b])ˣ) else w none)
Mumford.AmbientSemilinearAut.fracMap (Omega.toAmbientOf ϖ ρ (dIso τ)) (ιM none x)) ∧
  (∀ (ℓ : HeckeTower.AwayPrime q q') (τ : ↥(A.decompositionSubgroup ℚ)) (x : 𝕋.F ℓ),
      ιM (some ℓ) (galT ℓ τ • x)
        = (if χ τ = 1 then (1 : (ℍ[ℚ, a, b])ˣ) else w (some ℓ))
Mumford.AmbientSemilinearAut.fracMap (Omega.toAmbientOf ϖ ρ (dIso τ)) (ιM (some ℓ) x)) ∧

  (∀ x : F₀, ιM none (W ir • x) = w none • ιM none x) ∧
  (∀ x : F₀, ιM none (W irbar • x) = wbar none • ιM none x) ∧
  (∀ (ℓ : HeckeTower.AwayPrime q q') (x : 𝕋.F ℓ), ιM (some ℓ) (WT ℓ ir • x) = w (some ℓ) • ιM (some ℓ) x) ∧
  (∀ (ℓ : HeckeTower.AwayPrime q q') (x : 𝕋.F ℓ), ιM (some ℓ) (WT ℓ irbar • x) = wbar (some ℓ) • ιM (some ℓ) x) ∧

  (∀ (ℓ : HeckeTower.AwayPrime q q') (x : F₀), ιM (some ℓ) (𝕋.φ (ℓ, 0) x) = ιM none x) ∧
  (∀ (ℓ : HeckeTower.AwayPrime q q') (x : F₀), ιM (some ℓ) (𝕋.φ (ℓ, 1) x) = (s ℓ) • ιM none x)

end CerednikDrinfeld

end

Statements phrased using this module (73)