Definitions/Def_AutomorphicForm_ViaCompactCuspNotion.lean
Compact-pins cuspidality notion for ℤ√(−2) eigensystems
Four things are set up here. First, iotaZsqrtdNegTwo is the fixed ring homomorphism \mathbb{Z}[\sqrt{-2}]\to\mathbb{C} obtained from Zsqrtd.lift by sending the generator to \sqrt2\,i; iotaZsqrtdNegTwo_apply records that z\mapsto z_{\mathrm{re}}+z_{\mathrm{im}}\sqrt2\,i. Second, iwasawaSectionGL sends z in the upper half-plane to the matrix \begin{pmatrix}\operatorname{Im}z&\operatorname{Re}z\\0&1\end{pmatrix}\in GL_2(\mathbb{R}) (invertible since \operatorname{Im}z\neq0), the usual section of GL_2(\mathbb{R})\to\mathfrak{H} at i. Third, IsArchHolomorphicAt w hw φ, for a real infinite place w of a number field F and φ\colon GL_2(\mathbb{A}_F)\to\mathbb{C}, asserts that for every g the function z\mapsto(\operatorname{Im}z)^{-1}\,φ\bigl(g\cdot\iota_w(s_z)\bigr) is MDifferentiable for the model \mathcal{I}(\mathbb{C}) on the upper half-plane, where s_z is the above section transported to GL_2(F_w) along the inverse of the isometric isomorphism F_w\cong\mathbb{R} and \iota_w is the inclusion of the w-component into the adelic group; so the normalised Iwasawa descent of φ at w is holomorphic.
Fourth, viaCompactCuspNotion is an element of the project's CuspidalityNotion over \mathbb{Z}[\sqrt{-2}]: for Φ a Hecke eigensystem over F with coefficients in \mathbb{Z}[\sqrt{-2}], IsCusp F Φ is the conjunction of (i) the existence of a single witness R in the project's structure SmoothCuspRealizationAt at the pins productionPinsCompact F for the rescaled eigensystem (Φ\circ\iota_0)^{\mathrm{raw}} (in which b_v is divided by \lvert N v\rvert) whose underlying function satisfies, at every real place w, both the weight-one archimedean character condition HasArchCharacterAt₀ F w (archWeightOneAt hw) — equivariance φ(g\,\iota_w(k))=\chi(k)φ(g) for k in the determinant-one row-isometry subgroup, with \chi the transported character k\mapsto k_{00}+ik_{01} — and IsArchHolomorphicAt w hw; and (ii) the existence of a finite set S of finite places with Φ.b\,v=\chi_{-3}(N v) for v\notin S, where \chi_{-3}(n) is 1,-1,0 according as n\equiv1,2,0\pmod 3. Note that (i) demands one joint witness, not a property of all realisations, and that complex places are unconstrained. viaCompactCuspNotion_isCusp_iff is this unfolding by Iff.rfl, and isArithCuspRealizableVia_of_viaCompactCuspNotion extracts from IsCusp the weaker statement IsArithCuspRealizableVia F (productionPinsCompact F) iotaZsqrtdNegTwo Φ, i.e. mere nonemptiness of the realisation type, by forgetting the archimedean clauses.
Relation to Mathlib
The adelic automorphic machinery (carrier pins, smooth cuspidal realisations, Hecke eigensystems, row-isometry subgroups and archimedean weight characters) is the project's own; Mathlib supplies only the ambient ingredients used here, such as Zsqrtd.lift, UpperHalfPlane, MDifferentiable, adele and infinite-place completions, and InfinitePlace.Completion.ringEquivRealOfIsReal. The character \chi_{-3} is defined elementarily by residues modulo 3 rather than via Mathlib's quadratic characters.
Where it is used
This is the cuspidality notion against which the weight-one dihedral form attached to a Hecke character of \mathbb{Q}(\sqrt{-3}), with coefficients in \mathbb{Z}[\sqrt{-2}], is recognised: clause (ii) pins the finite-place data through \chi_{-3}, while clause (i) pins a weight-one holomorphic archimedean realisation, excluding weight-one Maass realisations that the SO(2)-type alone would permit.
References
- H. Darmon, F. Diamond and R. Taylor, Fermat's Last Theorem, in: Current Developments in Mathematics 1995, International Press, 1995, 1–154
- D. Bump, Automorphic Forms and Representations, Cambridge Studies in Advanced Mathematics 55, Cambridge University Press, 1997
- J.-P. Serre, Modular forms of weight one and Galois representations, in: Algebraic Number Fields (Durham, 1975), Academic Press, 1977, 193–268
References are suggested automatically and have not been individually verified.
English text generated automatically from the Lean source; the Lean statement is authoritative.
- 75 lines
- 7 declarations
- used in the statements of 32 theorems and imported by 39 proofs
- imports 4 definition modules
Source file: Definitions/Def_AutomorphicForm_ViaCompactCuspNotion.lean
Imports
Declarations
- def
AutomorphicForm.iotaZsqrtdNegTwo - theorem
AutomorphicForm.iotaZsqrtdNegTwo_apply - def
AutomorphicForm.iwasawaSectionGL - def
AutomorphicForm.IsArchHolomorphicAt - def
AutomorphicForm.viaCompactCuspNotion - theorem
AutomorphicForm.viaCompactCuspNotion_isCusp_iff - theorem
AutomorphicForm.isArithCuspRealizableVia_of_viaCompactCuspNotion
Source
import Definitions.Def_AutomorphicForm_ArithCuspRealization import Definitions.Def_AutomorphicForm_ProductionPinsCompact import Definitions.Def_AutomorphicForm_ArchWeightCharTransport import Definitions.Def_ModularForm_EisensteinChiNegThree set_option autoImplicit false open IsDedekindDomain NumberField EisensteinWeightOne CongruenceSubgroup open scoped Manifold noncomputable section namespace AutomorphicForm def iotaZsqrtdNegTwo : ℤ√(-2) →+* ℂ := Zsqrtd.lift ⟨(Real.sqrt 2 : ℂ) * Complex.I, by have h2 : ((Real.sqrt 2 : ℝ) : ℂ) * ((Real.sqrt 2 : ℝ) : ℂ) = 2 := by rw [← Complex.ofReal_mul, ← Real.sqrt_mul_self (by norm_num : (0:ℝ) ≤ 2)] norm_num [Real.sqrt_mul_self (by norm_num : (0:ℝ) ≤ 2)] calc ((Real.sqrt 2 : ℂ) * Complex.I) * ((Real.sqrt 2 : ℂ) * Complex.I) = (((Real.sqrt 2 : ℝ) : ℂ) * ((Real.sqrt 2 : ℝ) : ℂ)) * (Complex.I * Complex.I) := by ring _ = ((-2 : ℤ) : ℂ) := by rw [h2, Complex.I_mul_I]; norm_num⟩ @[simp] theorem iotaZsqrtdNegTwo_apply (z : ℤ√(-2)) : iotaZsqrtdNegTwo z = (z.re : ℂ) + (z.im : ℂ) * ((Real.sqrt 2 : ℂ) * Complex.I) := by simp [iotaZsqrtdNegTwo, Zsqrtd.lift] noncomputable def iwasawaSectionGL (z : UpperHalfPlane) : GL (Fin 2) ℝ := Matrix.GeneralLinearGroup.mkOfDetNeZero !![(z.im : ℝ), (z.re : ℝ); 0, 1] (by simp [Matrix.det_fin_two_of] exact z.im_ne_zero) def IsArchHolomorphicAt {F : Type} [Field F] [NumberField F] (w : InfinitePlace F) (hw : w.IsReal) (φ : AdelicGL2 (𝓞 F) F → ℂ) : Prop := ∀ g : AdelicGL2 (𝓞 F) F, MDifferentiable 𝓘(ℂ) 𝓘(ℂ) fun z : UpperHalfPlane => ((z.im : ℝ) : ℂ)⁻¹ * φ (g * adelicArchGLInclAt F w (Matrix.GeneralLinearGroup.map ((InfinitePlace.Completion.ringEquivRealOfIsReal hw).symm.toRingHom) (iwasawaSectionGL z))) def viaCompactCuspNotion : CuspidalityNotion (ℤ√(-2)) where IsCusp := fun F _i1 _i2 Φ => (∃ R : SmoothCuspRealizationAt F (productionPinsCompact F) ((Φ.map iotaZsqrtdNegTwo).toRawCentral), (∀ w : InfinitePlace F, ∀ hw : w.IsReal, HasArchCharacterAt₀ F w (archWeightOneAt hw) R.toFun) ∧ (∀ w : InfinitePlace F, ∀ hw : w.IsReal, IsArchHolomorphicAt w hw R.toFun)) ∧ ∃ S : Finset (HeightOneSpectrum (𝓞 F)), ∀ v ∉ S, Φ.b v = ((chiNegThree (Ideal.absNorm v.asIdeal) : ℤ) : ℤ√(-2)) theorem viaCompactCuspNotion_isCusp_iff {F : Type} [Field F] [NumberField F] (Φ : HeckeEigensystem F (ℤ√(-2))) : viaCompactCuspNotion.IsCusp F Φ ↔ (∃ R : SmoothCuspRealizationAt F (productionPinsCompact F) ((Φ.map iotaZsqrtdNegTwo).toRawCentral), (∀ w : InfinitePlace F, ∀ hw : w.IsReal, HasArchCharacterAt₀ F w (archWeightOneAt hw) R.toFun) ∧ (∀ w : InfinitePlace F, ∀ hw : w.IsReal, IsArchHolomorphicAt w hw R.toFun)) ∧ (∃ S : Finset (HeightOneSpectrum (𝓞 F)), ∀ v ∉ S, Φ.b v = ((chiNegThree (Ideal.absNorm v.asIdeal) : ℤ) : ℤ√(-2))) := Iff.rfl theorem isArithCuspRealizableVia_of_viaCompactCuspNotion {F : Type} [Field F] [NumberField F] (Φ : HeckeEigensystem F (ℤ√(-2))) (h : viaCompactCuspNotion.IsCusp F Φ) : IsArithCuspRealizableVia F (productionPinsCompact F) iotaZsqrtdNegTwo Φ := ⟨h.1.choose⟩ end AutomorphicForm end
Statements phrased using this module (32)
- landmark From cuspidal adelic eigensystems to classical weight-one cusp forms
AutomorphicForm.exists_weightOne_cuspForm_of_isCusp_viaCompactCuspNotion6 below · depth 10 - Lift-valued Hecke system and its χ₋₃-twist are both cuspidal
LanglandsTunnell.exists_liftValued_isCusp_pair_of_detDictionaryRow6,801 below · depth 10 - Quadratic base-change fibre over the cubic resolvent
LanglandsTunnell.agreesAwayFromFinite_or_twist_bcWeight_of_formalBaseChange_agree_sylowH898 below · depth 13 - Boundedness of aₚ from agreement with the lift-trace seed
LanglandsTunnell.exists_forall_norm_a_le_of_formalBaseChange_agrees_liftTraceSeed1 below · depth 13 - Weight-one holomorphic descent along a non-Galois cubic base change
LanglandsTunnell.exists_genuineCuspRealization_weightOne_of_formalBaseChange_cubic_of_not_isGalois_of_not_agreesAwayFromFinite_twist2,926 below · depth 13 - Quadratic descent to ℚ of a cusp-realizable Hecke eigensystem
LanglandsTunnell.exists_isArithBoundedGenuineCuspRealizable_pair_agrees_liftTraceSeed_quatH3,136 below · depth 13 - Cubic descent of the lift-trace seed to the determinant-kernel field
LanglandsTunnell.exists_isConstantOnFibers_b_formalBaseChange_arithBoundedGenuineCuspRealizable_detKer_of_quatH3,359 below · depth 13 - Ray class character realising the Q₈ seed table
LanglandsTunnell.exists_quadratic_rayClassChar_table_liftTraceSeed_quatH_of_detDictionaryRow96 below · depth 13 - Seed table over the cubic resolvent as a theta table
LanglandsTunnell.exists_quadratic_rayClassChar_table_liftTraceSeed_sylowH_of_detDictionaryRow93 below · depth 13 - Resolvent sign character and non-self-twist guard for GL₂(𝔽₃) towers
LanglandsTunnell.exists_resolventSign_not_agreesAwayFromFinite_twist_sylowH_of_liftTraceSeed_quatH27 below · depth 13 - Frobenius read-off at an unramified prime, up to the cubic partner
LanglandsTunnell.face_liftValuedUpToPartner_of_b_agreesAt_liftTraceSeed_detKer_sylowH0 below · depth 13 - Holomorphic weight-one descent along a cubic base change
LanglandsTunnell.exists_genuineRealization_archWeightOne_holomorphic_of_formalBaseChange_cubic_of_not_isGalois_of_not_agreesAwayFromFinite_twist2,925 below · depth 14 - Automorphic induction of a ray class symbol to weight one
LanglandsTunnell.exists_isGenuineCusp_archWeightOne_a_eq_of_raySymbol_eq_prod_of_finrank_eq_two353 below · depth 14 - Induced trace identities for the quaternionic lift seed
LanglandsTunnell.liftTraceSeed_quatH_table_eq_artinValue41 below · depth 14 - Induced-character table for the lift-trace seed over the cubic field
LanglandsTunnell.liftTraceSeed_sylowH_table_eq_artinValue1 below · depth 14 - No self-twist by the determinant sign character
LanglandsTunnell.not_agreesAwayFromFinite_twist_resolventSign_of_liftTraceSeed_quatH24 below · depth 14 - Windowed adelic realization of a weight-one primitive form
AutomorphicForm.exists_isGenuineCuspRealizationAt_hasNewvectorConductor_adelicSpan_factorization_of_isPrimitiveForm_weightOne52 below · depth 15 - Converse theorem for GL₂: nice L-data give cuspidal realisations
LanglandsTunnell.Converse.exists_isArithGenuineCuspRealizable_of_isJLNice109 below · depth 15 - Lift-trace seed vanishes above primes with e(σ) of order eight
LanglandsTunnell.exists_finset_liftTraceSeed_quatH_a_eq_zero_of_orderOf_eq_eight2 below · depth 15 - Unramified prime with order-eight Frobenius in a GL₂(𝔽₃)-tower
LanglandsTunnell.exists_inertia_eq_bot_isArithFrobAt_orderOf_eq_eight17 below · depth 15 - Automorphic induction of a quadratic Hecke character, weight one
LanglandsTunnell.exists_isGenuineCusp_archWeightOne_a_eq_of_isFiniteOrderHeckeChar_of_finrank_eq_two352 below · depth 15 - Quaternion-layer formal base change at Frobenius of order eight
LanglandsTunnell.formalBaseChange_quatH_a_eq_of_orderOf_eq_eight2 below · depth 15 - Central character determined by Hecke eigenvalues away from a finite set
AutomorphicForm.SmoothCuspRealizationAt.centralChar_eq_of_agreesAwayFromFinite4 below · depth 16 - Weight-one holomorphy from mean-square approximation by holomorphic translates
AutomorphicForm.isArchHolomorphicAt_of_forall_exists_setLIntegral_sub_sum_holomorphic_translate_sq_lt6 below · depth 16 - Holomorphy at real places of half-determinant twisted translate sums
LanglandsTunnell.Converse.CuspSynthesis.isArchHolomorphicAt_translateSum_halfDet27 below · depth 16 - Converse theorem with pinned constants and weight-one real components
LanglandsTunnell.Converse.exists_isArithGenuineCuspRealizable_archWeightOne_isArchHolomorphicAt_of_forall_isNicePinned_of_centralChar_of_generic121 below · depth 16 - Rigidity of holomorphy for weight-one realisations at a real place
LanglandsTunnell.isArchHolomorphicAt_of_agreesAwayFromFinite_of_weightOne_of_coversModCentre509 below · depth 16 - Holomorphy at a real place under L²-approximation by translates
AutomorphicForm.isArchHolomorphicAt_of_forall_exists_setLIntegral_sub_sum_translate_sq_lt7 below · depth 17 - Non-vanishing weight-one archimedean datum at the odd Artin parameter
LanglandsTunnell.Converse.exists_archDatumR_oddArtin_archWeightChar_one_mdifferentiable_W_ne_zero0 below · depth 17 - Transporting a continuous cusp realization to the standard Siegel window
AutomorphicForm.exists_smoothCuspRealizationAt_productionPinsGeneral_toFun_eq_of_coversModCentre21 below · depth 20 - Cuspidal realization transfers to the standard Siegel window
AutomorphicForm.exists_smoothCuspRealizationAt_productionPinsGeneral_toFun_eq_of_lt_of_coversModCentre24 below · depth 26 - Equal central characters from eigensystems agreeing almost everywhere
AutomorphicForm.SmoothCuspRealizationAt.centralChar_eq_of_agreesAwayFromFinite_principal4 below · depth 28