Definitions/Def_CerednikDrinfeld_EquivariantUniformization.lean
Equivariant Mumford uniformisation of a period datum
This module defines the structure CerednikDrinfeld.Mumford.EquivariantUniformization, parametrised by a prime r, a degeneracy datum D on a finite edge set E and a vertex set V (maps a,b\colon E\to V and widths w\colon E\to\mathbb{N}^{+}), a valuation subring A of \overline{\mathbb{Q}} with r a nonunit of A (LiesOverPrime), an abelian group T, a group S, and three homomorphisms out of S: a scalar part \mathrm{scalar}\colon S\to D_A into the decomposition group of A over \mathbb{Q}, an action \mathrm{actZ} of S by \mathbb{Z}-linear automorphisms of the ribbon kernel Z=\mathrm{ribbonKernel}\,D=\ker(\mathrm{pushforward}\,D.a)\cap\ker(\mathrm{pushforward}\,D.b)\subseteq(E\to\mathbb{Z}), and an action \mathrm{gal} of S on T by additive automorphisms. An instance of the structure consists of: an intermediate field K of \mathbb{Q} inside the completion C_A of A's valuation; an additive map \mathrm{ord}\colon \mathrm{Additive}\,K^{\times}\to\mathbb{Z} with v(k)=v(r)^{\mathrm{ord}(k)} for all k\in K^{\times}; the condition that every \sigma\in D_A lying in the inertia subgroup fixes K pointwise, read through any \mathbb{Q}-algebra automorphism s of C_A inducing the action of \sigma; a Henselian n-th root condition, namely that for n>0 with r\nmid n every k\in K^{\times} with \mathrm{ord}(k)=0 is an n-th power in K^{\times}; a period datum P over D with values in K, i.e. a symmetric \mathbb{Z}-bilinear Q\colon Z\times Z\to \mathrm{Additive}\,K^{\times} with \mathrm{ord}\,Q(x,y)=\sum_{e}w(e)x_ey_e; and a surjective additive map \mathrm{eFull} from the full torus points \mathrm{Hom}_{\mathbb{Z}}(Z,\mathrm{Additive}\,C_A^{\times}) onto T whose kernel is exactly the period lattice, the image of Q after base change to C_A.
Two equivariance fields carry the symmetry. For \sigma\in S and any \mathbb{Q}-algebra automorphism s of C_A realising the action of \mathrm{scalar}(\sigma): first s(Q(x,y))=Q(\mathrm{actZ}(\sigma)x,\mathrm{actZ}(\sigma)y) in C_A, and second \mathrm{eFull}\bigl(s\circ u\circ \mathrm{actZ}(\sigma)^{-1}\bigr)=\mathrm{gal}(\sigma)\,\mathrm{eFull}(u), where the postcomposition with s on coefficients is coeffMap and the precomposition with \mathrm{actZ}(\sigma)^{-1} is precomp. Thus the structure asserts an S-equivariant presentation of T as the quotient of the full character torus points by the period lattice, rather than the torsion-level, Hecke-compatible statement recorded by PeriodUniformization in the companion module; no compatibility with Hecke correspondences is imposed here.
Relation to Mathlib
Mathlib has no notion of Mumford period data or their uniformisations; the degeneracy data, ribbon kernel, period datum and this equivariant uniformisation structure are the project's own, built on Mathlib's valuation subrings, decomposition and inertia subgroups, and valuation completions.
Where it is used
The structure packages the r-adic (Čerednik–Drinfel'd/Mumford) uniformisation input used in the level-lowering half of the argument: the period datum records the monodromy pairing of a degenerating curve at r, and the equivariance fields transport the action of a chosen symmetry group — inertia, a Frobenius element, or a geometric automorphism of the degeneration — to the group T uniformised by the torus points.
References
- H. Darmon, F. Diamond and R. Taylor, Fermat's Last Theorem, in: Current Developments in Mathematics 1995, International Press, 1995, 1–154, §2
- D. Mumford, An analytic construction of degenerating curves over complete local rings, Compositio Mathematica 24 (1972), 129–174
- V. G. Drinfel'd, Coverings of p-adic symmetric domains, Functional Analysis and its Applications 10 (1976), 107–115
References are suggested automatically and have not been individually verified.
English text generated automatically from the Lean source; the Lean statement is authoritative.
- 58 lines
- 18 declarations
- used in the statements of 19 theorems and imported by 19 proofs
- imports 2 definition modules
Source file: Definitions/Def_CerednikDrinfeld_EquivariantUniformization.lean
Imported by
- no other definition module
Declarations
- structure
CerednikDrinfeld.Mumford.EquivariantUniformization - field
CerednikDrinfeld.Mumford.EquivariantUniformization.A - field
CerednikDrinfeld.Mumford.EquivariantUniformization.T - field
CerednikDrinfeld.Mumford.EquivariantUniformization.S - field
CerednikDrinfeld.Mumford.EquivariantUniformization.actZ - field
CerednikDrinfeld.Mumford.EquivariantUniformization.K - field
CerednikDrinfeld.Mumford.EquivariantUniformization.ord - field
CerednikDrinfeld.Mumford.EquivariantUniformization.ord_spec - field
CerednikDrinfeld.Mumford.EquivariantUniformization.inertia_K - field
CerednikDrinfeld.Mumford.EquivariantUniformization.hensel_K - field
CerednikDrinfeld.Mumford.EquivariantUniformization.P - field
CerednikDrinfeld.Mumford.EquivariantUniformization.eFull - field
CerednikDrinfeld.Mumford.EquivariantUniformization.eFull_surjective - field
CerednikDrinfeld.Mumford.EquivariantUniformization.eFull_ker - field
CerednikDrinfeld.Mumford.EquivariantUniformization.Q_equiv - field
CerednikDrinfeld.Mumford.EquivariantUniformization.s - field
CerednikDrinfeld.Mumford.EquivariantUniformization.eFull_equiv - field
CerednikDrinfeld.Mumford.EquivariantUniformization.eFull
Source
import Definitions.Def_CerednikDrinfeld_MumfordUniformization import Definitions.Def_Compat_Mathlib430 set_option autoImplicit false noncomputable section namespace CerednikDrinfeld namespace Mumford open ModularCurve variable {E V : Type} [Fintype E] [DecidableEq V] structure EquivariantUniformization (r : ℕ) [Fact r.Prime] (D : DegeneracyData E V) (A : ValuationSubring (AlgebraicClosure ℚ)) (hA : A.LiesOverPrime r) (T : Type) [AddCommGroup T] (S : Type) [Group S] (scalar : S →* ↥(A.decompositionSubgroup ℚ)) (actZ : S →* (↥(ribbonKernel D) ≃ₗ[ℤ] ↥(ribbonKernel D))) (gal : S →* AddAut T) : Type 1 where K : IntermediateField ℚ A.valuation.Completion ord : Additive (↥K)ˣ →+ ℤ ord_spec : ∀ k : (↥K)ˣ, Valued.v (((k : ↥K) : A.valuation.Completion)) = Valued.v ((r : ℕ) : A.valuation.Completion) ^ (ord (Additive.ofMul k)) inertia_K : ∀ σ : ↥(A.decompositionSubgroup ℚ), (σ : AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ) ∈ A.inertiaSubgroupIn ℚ → ∀ s : A.valuation.Completion ≃ₐ[ℚ] A.valuation.Completion, (∀ c, s c = σ • c) → ∀ k : ↥K, s (k : A.valuation.Completion) = (k : A.valuation.Completion) hensel_K : ∀ n : ℕ, 0 < n → ¬ r ∣ n → ∀ k : (↥K)ˣ, ord (Additive.ofMul k) = 0 → ∃ k' : (↥K)ˣ, k' ^ n = k P : PeriodDatum D (↥K) A.valuation.Completion ord eFull : P.TorusPoints →+ T eFull_surjective : Function.Surjective eFull eFull_ker : ∀ u : P.TorusPoints, eFull u = 0 ↔ u ∈ P.periodLattice Q_equiv : ∀ (σ : S) (s : A.valuation.Completion ≃ₐ[ℚ] A.valuation.Completion), (∀ c, s c = (scalar σ) • c) → ∀ x y : ↥(ribbonKernel D), s (((Additive.toMul (P.Q x y) : (↥K)ˣ) : ↥K) : A.valuation.Completion) = (((Additive.toMul (P.Q (actZ σ x) (actZ σ y)) : (↥K)ˣ) : ↥K) : A.valuation.Completion) eFull_equiv : ∀ (σ : S) (s : A.valuation.Completion ≃ₐ[ℚ] A.valuation.Completion), (∀ c, s c = (scalar σ) • c) → ∀ u : P.TorusPoints, eFull (P.coeffMap (s : A.valuation.Completion →+* A.valuation.Completion) (P.precomp (((actZ σ)⁻¹ : ↥(ribbonKernel D) ≃ₗ[ℤ] ↥(ribbonKernel D)) : ↥(ribbonKernel D) →ₗ[ℤ] ↥(ribbonKernel D)) u)) = gal σ (eFull u) end Mumford end CerednikDrinfeld end
Statements phrased using this module (19)
- Restriction of an equivariant Mumford uniformisation to the torsion
CerednikDrinfeld.Mumford.EquivariantUniformization.eFull_restrict_U_torsion_and_equiv0 below · depth 18 - Čerednik–Drinfeld equivariant uniformisation at both ramified primes
CerednikDrinfeld.exists_shimuraCurveModel_goodReduction_and_equivariantUniformization_pair_of_six_mul_dvd_of_neZero10,401 below · depth 18 - Natural equivariant uniformisation of Jacobians of Mumford quotients
AlgebraicCurve.Pic0.exists_equivariantUniformization_family_natural_of_mumfordQuotient_of_v_card_stabilizer_eq_one296 below · depth 19 - Push-forward square for pinned Mumford uniformisations along φ
AlgebraicCurve.Pic0.eFull_comp_pullback_eq_mk_pushforwardAlong_of_mumfordQuotient_theta65 below · depth 20 - Pullback compatibility of pinned Mumford uniformisations of Pic⁰
AlgebraicCurve.Pic0.eFull_comp_pushforward_eq_mk_pullbackAlong_of_mumfordQuotient_theta_of_v_card_stabilizer_eq_one138 below · depth 20 - Equivariant Manin–Drinfeld uniformisation of Jacobians of Mumford quotients
AlgebraicCurve.Pic0.exists_equivariantUniformization_of_mumfordQuotient_theta_of_mem_valuationSubring_iff_of_v_card_stabilizer_eq_one247 below · depth 20 - Adjointness of pullback and pushforward for Mumford period pairings
AlgebraicCurve.Pic0.periodPairing_pullback_eq_periodPairing_pushforward_of_mumfordQuotient_theta50 below · depth 20 - Theta torus point lifting a two-point divisor and its push-forward
AlgebraicCurve.Pic0.exists_eFull_eq_mk_single_sub_single_and_eFull_comp_pullback_eq_mk_pushforwardAlong_of_mumfordQuotient_theta62 below · depth 21 - A theta torus point compatible with degeneracy push-forward
AlgebraicCurve.Pic0.exists_eFull_eq_mk_single_sub_single_and_eFull_comp_pushforward_eq_mk_pullbackAlong_of_mumfordQuotient_theta_of_v_card_stabilizer_eq_one135 below · depth 21 - Period datum of a Mumford quotient pinned to analytic periods
AlgebraicCurve.Pic0.exists_periodDatum_Q_mul_period_eq_one_of_mumfordQuotient81 below · depth 21 - Theta uniformisation of Pic⁰ of a tame Mumford quotient
AlgebraicCurve.Pic0.exists_torusPoints_uniformization_of_periodDatum_of_mumfordQuotient_of_v_card_stabilizer_eq_one146 below · depth 21 - Equivariance of the period pairing and the theta-pinned uniformisation
AlgebraicCurve.Pic0.periodDatum_equivariant_of_theta_pinned_uniformization_of_mumfordQuotient125 below · depth 21 - Inertia-invariant points lift to inertia-invariant torus points
CerednikDrinfeld.Mumford.EquivariantUniformization.exists_coeffMap_eq_and_eFull_eq_of_forall_inertia_gal_eq2 below · depth 21 - Principal theta divisors on a Mumford quotient are periods
AlgebraicCurve.Pic0.exists_prod_theta_eq_period_of_isPrincipal_of_v_card_stabilizer_eq_one138 below · depth 22 - Equal theta multipliers give a principal divisor on a Mumford quotient
AlgebraicCurve.Pic0.isPrincipal_sum_sub_sum_of_prod_theta_eq_of_v_card_stabilizer_eq_one119 below · depth 22 - Inertia fixes every torus lift of an inertia-invariant point
CerednikDrinfeld.Mumford.EquivariantUniformization.coeffMap_eq_of_mem_inertiaSubgroupIn_of_gal_eFull_eq1 below · depth 22 - Galois transport of a theta-pinned Mumford torus point
CerednikDrinfeld.Mumford.exists_monoidHom_theta_coeffMap_precomp_apply_eq_of_apply_eq8 below · depth 22 - Pinned theta multipliers exist for every pair of points
CerednikDrinfeld.Mumford.exists_theta_multiplier_and_torusPoint_apply_eq_of_mumfordQuotient49 below · depth 22 - Coefficientwise invariance of torus points with invariant image
CerednikDrinfeld.Mumford.EquivariantUniformization.coeffMap_eq_of_actZ_eq_one_of_gal_eFull_eq0 below · depth 23