Definitions/Def_ModularCurve_XHDiamondModL.lean
Pull-back condition for diamond actions on reduced q-expansion fields
Fix a field K, an integer M and a subgroup H \le (\mathbb{Z}/M)^\times. Here \Gamma_H(M) is the group CohCarrier.GammaH M H, the set of matrices in \Gamma_0(M) whose (1,1)-entry reduces mod M to a unit lying in H, and the field F_K = qExpFunctionFieldC K (CohCarrier.GammaH M H) is the intermediate field of K((q)) = LaurentSeries K generated over K by all quotients \bar p_f/\bar p_g, where f,g run over modular forms of a common integral weight on \Gamma_H(M) (as a subgroup of GL_2(\mathbb{R})), p_f,p_g \in \mathbb{Z}[[q]] are integral q-expansions of f,g at width 1 (i.e. their coefficientwise images in \mathbb{C}[[q]] are the q-expansions), \bar{(\cdot)} denotes the coefficientwise reduction into K((q)) via intSeriesC, and \bar p_g \ne 0.
The module defines a predicate IsDiamondPullbackModL on a group homomorphism \rho from \Gamma_0(M) to the group of K-algebra automorphisms of F_K. It asserts: for every \gamma \in \Gamma_0(M), every weight k \in \mathbb{Z}, all modular forms f,g,f_1,g_1 of weight k on \Gamma_H(M) with integral q-expansions p_f,p_g,p_{f_1},p_{g_1} such that f_1 = f\mid_k\gamma and g_1 = g\mid_k\gamma as functions on the upper half-plane (the slash action of \gamma regarded in SL_2(\mathbb{Z})), and with \bar p_g \neq 0, every element x \in F_K whose underlying Laurent series is \bar p_{f_1}/\bar p_{g_1} satisfies that the Laurent series of \rho(\gamma)(x) is \bar p_f/\bar p_g. Thus \rho(\gamma) carries the reduction of (f\mid\gamma)/(g\mid\gamma) to the reduction of f/g. Non-vanishing is required of \bar p_g only; division by zero in K((q)) is the Lean convention. Nothing is asserted by the definition itself. The accompanying lemma IsDiamondPullbackModL.coe_apply_eq is the same statement in applied form, with the forms, series and element taken as implicit arguments.
Relation to Mathlib
Mathlib supplies the slash action, qExpansion, \Gamma_0 and \Gamma_1, and Laurent series; the groups \Gamma_H(M), the q-expansion function fields inside LaurentSeries K, the integrality predicate IsIntegralQExp and the pull-back predicate defined here are the project's own.
Where it is used
The predicate pins down, by its effect on reduced ratios of q-expansions, an action of \Gamma_0(M) by K-algebra automorphisms on the function field of X_H(M) with coefficients in K; for K of characteristic \ell this is the reduction mod \ell of the diamond automorphisms. Stating it over an arbitrary coefficient field allows later statements to quantify over any action with this property, whatever the field of characteristic \ell in use.
References
- N. M. Katz, p-adic properties of modular schemes and modular forms, in: Modular Functions of One Variable III, Lecture Notes in Mathematics 350, Springer, 1973, 69–190
- F. Diamond and J. Shurman, A First Course in Modular Forms, Graduate Texts in Mathematics 228, Springer, 2005
References are suggested automatically and have not been individually verified.
English text generated automatically from the Lean source; the Lean statement is authoritative.
- 51 lines
- 2 declarations
- used in the statements of 23 theorems and imported by 28 proofs
- imports 1 definition modules
Source file: Definitions/Def_ModularCurve_XHDiamondModL.lean
Imports
Imported by
Declarations
Source
import Mathlib import Definitions.Def_ModularCurve_XH set_option autoImplicit false noncomputable section open scoped MatrixGroups ModularForm namespace ModularCurve def IsDiamondPullbackModL (K : Type*) [Field K] (M : ℕ) (H : Subgroup (ZMod M)ˣ) (ρ : CongruenceSubgroup.Gamma0 M →* (qExpFunctionFieldC K (CohCarrier.GammaH M H) ≃ₐ[K] qExpFunctionFieldC K (CohCarrier.GammaH M H))) : Prop := ∀ (γ : CongruenceSubgroup.Gamma0 M) (k : ℤ) (f g f₁ g₁ : ModularForm (CohCarrier.GammaH M H : Subgroup (GL (Fin 2) ℝ)) k) (pf pg pf₁ pg₁ : PowerSeries ℤ), IsIntegralQExp f pf → IsIntegralQExp g pg → IsIntegralQExp f₁ pf₁ → IsIntegralQExp g₁ pg₁ → (⇑f₁ : UpperHalfPlane → ℂ) = ((⇑f : UpperHalfPlane → ℂ) ∣[k] (γ : SL(2, ℤ))) → (⇑g₁ : UpperHalfPlane → ℂ) = ((⇑g : UpperHalfPlane → ℂ) ∣[k] (γ : SL(2, ℤ))) → intSeriesC K pg ≠ 0 → ∀ x : qExpFunctionFieldC K (CohCarrier.GammaH M H), (x : LaurentSeries K) = intSeriesC K pf₁ / intSeriesC K pg₁ → ((ρ γ x : qExpFunctionFieldC K (CohCarrier.GammaH M H)) : LaurentSeries K) = intSeriesC K pf / intSeriesC K pg variable {K : Type*} [Field K] {M : ℕ} {H : Subgroup (ZMod M)ˣ} {ρ : CongruenceSubgroup.Gamma0 M →* (qExpFunctionFieldC K (CohCarrier.GammaH M H) ≃ₐ[K] qExpFunctionFieldC K (CohCarrier.GammaH M H))} theorem IsDiamondPullbackModL.coe_apply_eq (hρ : IsDiamondPullbackModL K M H ρ) (γ : CongruenceSubgroup.Gamma0 M) {k : ℤ} {f g f₁ g₁ : ModularForm (CohCarrier.GammaH M H : Subgroup (GL (Fin 2) ℝ)) k} {pf pg pf₁ pg₁ : PowerSeries ℤ} (hf : IsIntegralQExp f pf) (hg : IsIntegralQExp g pg) (hf₁ : IsIntegralQExp f₁ pf₁) (hg₁ : IsIntegralQExp g₁ pg₁) (hfs : (⇑f₁ : UpperHalfPlane → ℂ) = ((⇑f : UpperHalfPlane → ℂ) ∣[k] (γ : SL(2, ℤ)))) (hgs : (⇑g₁ : UpperHalfPlane → ℂ) = ((⇑g : UpperHalfPlane → ℂ) ∣[k] (γ : SL(2, ℤ)))) (hpg : intSeriesC K pg ≠ 0) {x : qExpFunctionFieldC K (CohCarrier.GammaH M H)} (hx : (x : LaurentSeries K) = intSeriesC K pf₁ / intSeriesC K pg₁) : ((ρ γ x : qExpFunctionFieldC K (CohCarrier.GammaH M H)) : LaurentSeries K) = intSeriesC K pf / intSeriesC K pg := hρ γ k f g f₁ g₁ pf pg pf₁ pg₁ hf hg hf₁ hg₁ hfs hgs hpg x hx end ModularCurve end
Statements phrased using this module (23)
- Existence of a diamond pull-back action for arbitrary H
ModularCurve.exists_isDiamondPullbackModL_of_isAlgClosed289 below · depth 13 - Diamond action on the function field of X₁(M) and Γ_H-invariants
ModularCurve.exists_isDiamondPullbackModL_bot_forall_coe_mem_gammaH_iff288 below · depth 14 - Diamond action of Γ₀(M) on the q-expansion function field
ModularCurve.exists_isDiamondPullbackModL_bot_of_natCast_ne_zero109 below · depth 15 - Diamond-invariant functions mod ℓ lie in level Γ₀(M)
ModularCurve.coe_mem_modularFunctionFieldFullC_of_forall_diamondPullbackModL_apply_eq201 below · depth 20 - Cusp places inject into double cosets, with trivial diamond stabilisers
ModularCurve.exists_injective_doubleCoset_forall_diamondPullbackModL_smul_place_eq_of_ord_neg316 below · depth 20 - Elliptic places of X₀(M) mod ℓ and double cosets
ModularCurve.exists_injective_doubleCoset_forall_diamondPullbackModL_smul_place_eq_of_ord_pos606 below · depth 20 - Kernel of a diamond pull-back action is ±Γ_H(M)
ModularCurve.IsDiamondPullbackModL.apply_eq_one_iff_gamma0Units_mem3 below · depth 21 - Mod ℓ cusp expansion of the function field of X_H(M)
ModularCurve.exists_algHom_qExpFunctionFieldC_gammaH_eq_slot_and_diamondPullbackModL_eq_qTwist116 below · depth 21 - Moduli description of X_H(M) points at transcendental j
ModularCurve.exists_natural_diamond_algHom_qExpFunctionFieldC_gammaH_of_transcendental_j549 below · depth 21 - Diamond-equivariant moduli embeddings for X₁(M) at transcendental j
ModularCurve.exists_natural_diamond_algHom_qExpFunctionFieldC_gammaH_bot_of_transcendental_j444 below · depth 22 - Generic evaluation of the Γ₁(M) function field with torsion point
ModularCurve.exists_algHom_qExpFunctionFieldC_gammaH_bot_comp_eq_iff_and_comp_diamondPullbackModL_of_transcendental_j441 below · depth 23 - Division-value functions on the Tate curve and diamond permutation
ModularCurve.exists_qExpFunctionFieldC_gammaH_bot_coe_eq_toricPoint_pow_and_diamondPullbackModL_apply_eq8 below · depth 24 - Uniqueness of a diamond pull-back action on ̄ F(Γ_H(M))
ModularCurve.IsDiamondPullbackModL.unique103 below · depth 26 - Automorphisms fixing the X₀(M) function field are diamonds
ModularCurve.exists_eq_diamondPullbackModL_of_forall_coe_mem_gamma0_apply_eq0 below · depth 29 - Diamond-equivariant modular description of a fibre of j
ModularCurve.exists_orbitMap_torsionOrbit_places_qExpFunctionFieldC_gammaH_smul_eq576 below · depth 29 - Ordinary corner: reduction to identity iff inertia acts cyclotomically
ModularCurve.JHNeronObjectAtP.reducesToOne_iff_inertia_cyclotomic_of_mem_corner_of_mem_finPts_of_ordinary_of_abelJacobiPin_of_inertF_of_levelData_of_algEquiv3,537 below · depth 30 - Idempotent and μₚ-pairing between corner and adjoint corner
ModularCurve.JHNeronObjectAtP.exists_idempotent_pairing_corner_adjointCorner_perfect_galois_radical_ncard_toric_cyclotomic_eq_of_abelJacobiPin_of_levelData_of_algEquiv3,182 below · depth 32 - Coefficient base change intertwines reduced diamond actions on q-expansions
ModularCurve.coeffMap_coe_apply_eq_coe_apply_coeffMap_of_isDiamondPullbackModL103 below · depth 32 - Toric and finite p-torsion as mutual annihilators
ModularCurve.JHNeronObjectAtP.toricPts_finPts_mutual_annihilator_weilDatum_pairing_residueChar_of_abelJacobiPin_of_degeneracy3,116 below · depth 33 - Toric p-torsion pairs trivially with finite p-torsion
ModularCurve.JHNeronObjectAtP.weilDatum_pairing_eq_one_of_mem_toricPts_of_mem_finPts_of_abelJacobiPin_of_degeneracy_of_representsRelSubPicLevel3,100 below · depth 34 - Finite p-torsion splits off the two degeneracy pull-backs
ModularCurve.JHNeronObjectAtP.exists_eq_add_pull_add_pull_of_mem_finPts_of_abelJacobiPin771 below · depth 35 - Lifting p^k-torsion along a level-(M/p) Néron datum
ModularCurve.JHNeronObjectAtP.LevelData.exists_pts_eq_barPt_comp_and_ptsSp_symm_eq_of_smul_eq_zero_of_abelianScheme737 below · depth 36 - Group law, reduction and rigidity for A-sections of G
ModularCurve.JHNeronObjectAtP.exists_section_mul_inv_one_and_ptsSp_symm_eq0 below · depth 36