Fermat's Last Theorem in Lean 4

← all definition modules

Definitions/Def_CerednikDrinfeld_DescentIntertwiningBase.lean

definition module

Base-level intertwining predicate for Čerednik descent

DescentIntertwiningBase is a proposition asserting that two packages of data — on one side a rigid-analytic Mumford quotient, on the other an abstract tower of function fields over \overline{\mathbb Q} — are intertwined at the base level of the prime-to-qq' tower. Its context fixes natural numbers q,q',r and indices i_r,i_{\bar r}\in\{0,1\}; a valuation subring A of \overline{\mathbb Q} satisfying the predicate ValuationSubring.DecompositionIsometric over \mathbb Q, with completion C_A=A.valuation.Completion and distinguished subfield K_0=ValuationSubring.ratClosure A; a homomorphism \rho\colon\mathbb H[\mathbb Q,a,b]^\times\to\mathrm{PGL}_2(K_0); a pseudo-uniformiser \varpi (an element of K_0 whose valuation in C_A lies strictly between 0 and 1 and bounds every nonzero element of K_0 between v(\varpi)^N and v(\varpi)^{-N}), through which the ring HolRingOf ϖ ρ of functions on the Drinfeld upper half-plane over C_A that are holomorphic on each affinoid carries a \mathbb H^\times-action by Möbius precomposition, assumed to be a domain, with fraction field \mathcal M; level subgroups \Gamma_j indexed by the tower objects j (a base level none and one level for each prime \ell\neq q,q'); elements w_j,\bar w_j and s_\ell of the quaternion unit group; a homomorphism d from the decomposition group D_A to the valuation-preserving automorphisms of C_A fixing K_0 pointwise; and, on the other side, a field F_0/\overline{\mathbb Q}, tower data \mathbb T (curve function fields F_\ell with two finite integral degeneracy maps \varphi_{\ell,0},\varphi_{\ell,1}\colon F_0\to F_\ell), semilinear actions of D_A on F_0 and on each F_\ell, and semilinear automorphisms W_0,W_1 of F_0 with companions W_{\ell,0},W_{\ell,1}.

The data constrained are a character \chi\colon D_A\to\{\pm1\} (written multiplicatively in \mathrm{ZMod}\,2) and ring homomorphisms \iota_j from each tower field into \mathcal M. The conjunction asserts: \chi is trivial on the elements of D_A lying in A.inertiaSubgroupIn ℚ; \chi is non-trivial at every \varphi with A.IsFrobeniusAt for \varphi and r; \chi\tau=1 if and only if \tau fixes every x in the residue field of A with x^{r^2}=x; on \overline{\mathbb Q}-constants \iota_{\mathrm{none}} agrees with \overline{\mathbb Q}\to C_A\to\mathcal M; the subfield of \mathcal M generated by C_A together with \iota_{\mathrm{none}}(F_0) equals the field of \Gamma_{\mathrm{none}}-invariants Mumford.invariantFieldOf; \iota_{\mathrm{none}} sends finite \overline{\mathbb Q}-linearly independent families in F_0 to C_A-linearly independent families; for \tau\in D_A and x\in F_0, \iota_{\mathrm{none}}(\tau\cdot x) equals the semilinear twist of \iota_{\mathrm{none}}(x) by d(\tau) (via toAmbientOf and fracMap), multiplied by the action of 1 or of w_{\mathrm{none}} according as \chi\tau=1 or not; W_{i_r} and W_{i_{\bar r}} correspond to the actions of w_{\mathrm{none}} and \bar w_{\mathrm{none}}; and for each \ell the two degeneracy maps correspond to the identity and to the action of s_\ell on \iota_{\mathrm{none}}. The constant-field, Galois and Atkin–Lehner conditions are imposed at the base level only, the upper levels entering through the two degeneracy clauses.

Relation to Mathlib

Mathlib has no rigid-analytic uniformisation theory: the Drinfeld upper half-plane, pseudo-uniformisers, the ring of functions holomorphic on each affinoid, the ambient semilinear automorphisms and the invariant (Mumford) subfields of the meromorphic function field are all project notions, built on Mathlib's valuations, fraction fields and fixed-point subfields.

Where it is used

The predicate packages one discriminant prime's worth of Čerednik's interchange theorem as a statement about named data, so that the descent theorem for the Shimura curve X_0^{qq'}(N) (asserting such \chi and \iota_j exist) and the Mumford-side consequences (totally degenerate coverings, class-set identifications, Hecke and Atkin–Lehner laws on the \overline{\mathbb Q}-side fields) can be formulated about the same objects. A separate level-up statement upgrades data satisfying this base-level version to the full predicate at every level of the tower.

References

  1. I. V. Čerednik, Uniformization of algebraic curves by discrete arithmetic subgroups of \mathrm{PGL}_2(k_w) with compact quotient, Math. USSR Sbornik 29 (1976), 55–78
  2. V. G. Drinfeld, Coverings of p-adic symmetric domains, Functional Analysis and its Applications 10 (1976), 107–115
  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_DescentIntertwiningBase.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 DescentIntertwiningBase

    {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) ∧

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

  (∀ (τ : ↥(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)) ∧

  (∀ 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 ℓ) (𝕋.φ (ℓ, 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 (54)