MTT: p-adic measures, disk moments, and interpolation
DefinitionMTT_MeasuresCp-valued bounded measures on the actual p-adic unit group, the ordinary-root predicate, algebraic signed symbols, disk moments from MTT (10.2), and the full interpolation predicate. The complex-to-p-adic comparison uses algebraic numbers under two fixed embeddings. Continuous test functions are quantified with exact pointwise specifications. Primitive conductor and critical-exponent bounds are enforced in the interpolation predicate.
import Definitions.Def_MTT_Arithmetic
import Mathlib.NumberTheory.Padics.Complex
import Mathlib.NumberTheory.Padics.RingHoms
import Mathlib.NumberTheory.Padics.Measure.Basic
set_option autoImplicit false
noncomputable section
open scoped BigOperators
namespace MTT
variable {p : ℕ} [Fact p.Prime]
/-- A bounded Cp-valued measure on the actual compact group Zp^*. -/
abbrev UnitMeasure (p : ℕ) [Fact p.Prime] :=
AbstractMeasure (ℤ_[p])ˣ ℂ_[p] ℂ_[p]
/-- The tautological coordinate, via Qp -> Cp. -/
def coordinate (x : (ℤ_[p])ˣ) : ℂ_[p] :=
algebraMap ℚ_[p] ℂ_[p] (x.val : ℚ_[p])
/-- The ordinary root of MTT (10.1). -/
def IsOrdinaryRoot {N k : ℕ} {ι : Qbar →+* ℂ}
(f : Eigenform N k ι) (ιp : Qbar →+* ℂ_[p]) (α : ℂ_[p]) : Prop :=
‖α‖ = 1 ∧ α ^ 2 - ιp (f.coeff p) * α +
ιp (f.epsilon p) * (p : ℂ_[p]) ^ (k - 1) = 0
/-- Algebraic signed modular symbols, obtained by expanding (mX+a)^j. -/
def algebraicSymbol {k : ℕ} {ι : Qbar →+* ℂ} {f : UpperHalfPlane → ℂ}
(P : Periods k ι f) (s : Bool) (j : ℕ) (a m : ℚ) : Qbar :=
∑ t ∈ Finset.range (j + 1),
(j.choose t : Qbar) * (m : Qbar) ^ t * (a : Qbar) ^ (j - t) *
P.value s t (-a / m)
/-- MTT (10.2), specialized to p-power disks of positive depth; polynomial X^j. -/
def diskMoment {N k : ℕ} {ι : Qbar →+* ℂ} (f : Eigenform N k ι)
(ιp : Qbar →+* ℂ_[p]) (P : Periods k ι f.form) (α : ℂ_[p])
(s : Bool) (j n : ℕ) (a : ℤ) : ℂ_[p] :=
(α ^ n)⁻¹ * ιp (algebraicSymbol P s j a (p ^ n)) -
(ιp (f.epsilon p) * (p : ℂ_[p]) ^ (k - 2) / α ^ (n + 1)) *
ιp (algebraicSymbol P s j a (p ^ (n - 1)))
/-- Pointwise description of X^j on a residue disk and zero elsewhere. -/
def diskFunction (n : ℕ) (a : ℤ) (j : ℕ) (x : (ℤ_[p])ˣ) : ℂ_[p] :=
if PadicInt.toZModPow n x.val = (a : ZMod (p ^ n)) then coordinate x ^ j else 0
/-- The measure realizes every critical polynomial moment on every unit disk. -/
def RealizesMoments {N k : ℕ} {ι : Qbar →+* ℂ} (f : Eigenform N k ι)
(ιp : Qbar →+* ℂ_[p]) (P : Periods k ι f.form) (α : ℂ_[p])
(s : Bool) (μ : UnitMeasure p) : Prop :=
∀ (n : ℕ), 0 < n → ∀ (a : ℤ), IsCoprime a (p : ℤ) →
∀ (j : ℕ), j ≤ k - 2 → ∃ g : C((ℤ_[p])ˣ, ℂ_[p]),
(∀ x, g x = diskFunction n a j x) ∧ μ g = diskMoment f ιp P α s j n a
/-- The finite-order character times X^j, as a pointwise function. -/
def specialFunction (ιp : Qbar →+* ℂ_[p]) (n : ℕ)
(χ : DirichletCharacter Qbar (p ^ n)) (j : ℕ) (x : (ℤ_[p])ˣ) : ℂ_[p] :=
ιp (χ (PadicInt.toZModPow n x.val)) * coordinate x ^ j
/-- Period parity: chi(-1)(-1)^j, true for plus and false for minus. -/
def criticalSign {m : ℕ} (χ : DirichletCharacter Qbar m) (j : ℕ) : Bool :=
by classical exact decide (χ (-1) * (-1 : Qbar) ^ j = 1)
/-- MTT I.§14 multiplier; characters are evaluated at their primitive modulus. -/
def eulerMultiplier {N k : ℕ} {ι : Qbar →+* ℂ} (f : Eigenform N k ι)
(ιp : Qbar →+* ℂ_[p]) (α : ℂ_[p]) (n : ℕ)
(χ : DirichletCharacter Qbar (p ^ n)) (j : ℕ) : ℂ_[p] :=
(α ^ n)⁻¹ *
(1 - ιp (χ⁻¹ (p : ZMod (p ^ n))) * ιp (f.epsilon p) *
(p : ℂ_[p]) ^ (k - 2 - j) / α) *
(1 - ιp (χ (p : ZMod (p ^ n))) * (p : ℂ_[p]) ^ j / α)
/-- The complex side after division by the appropriate period, using MTT normalization. -/
def normalizedCriticalValue {N k : ℕ} {ι : Qbar →+* ℂ} (f : Eigenform N k ι)
(omega : Bool → ℂ) (n : ℕ) (χ : DirichletCharacter Qbar (p ^ n)) (j : ℕ) : ℂ :=
((p ^ n : ℕ) : ℂ) ^ (j + 1) * (j.factorial : ℂ) /
((-2 * Real.pi * Complex.I) ^ j * gaussSum ι (p ^ n) χ⁻¹ *
omega (criticalSign χ j)) * criticalLValue ι f.form (p ^ n) χ j
/-- Interpolation with an explicit algebraic bridge between C and Cp.
The existential continuous function is forced pointwise to equal chi(x) x^j. -/
def Interpolates {N k : ℕ} {ι : Qbar →+* ℂ} (f : Eigenform N k ι)
(ιp : Qbar →+* ℂ_[p]) (omega : Bool → ℂ) (α : ℂ_[p])
(μ : UnitMeasure p) : Prop :=
∀ (n : ℕ) (χ : DirichletCharacter Qbar (p ^ n)), χ.IsPrimitive →
∀ (j : ℕ), j ≤ k - 2 → ∃ (g : C((ℤ_[p])ˣ, ℂ_[p])) (v : Qbar),
(∀ x, g x = specialFunction ιp n χ j x) ∧
ι v = normalizedCriticalValue f omega n χ j ∧
μ g = eulerMultiplier f ιp α n χ j * ιp v
end MTT
Read-back
What the Lean code literally says, in plain math · GPT-6 (Codex)
UnitMeasure. For every natural prime (with a supplied proof of primality), this is the type of abstract -valued, -linear measures on the group of units in the -adic integers: bounded continuous linear functionals on continuous -valued functions on that group. No positivity or probability normalization is imposed.
coordinate. For a natural prime and a unit , this is its underlying -adic integer, included first in and then by the specified algebra map into ; denote it by .
IsOrdinaryRoot. Given a natural prime , natural numbers , a ring embedding , an Eigenform datum of level and weight , a ring embedding , and , this predicate is the conjunction and . Here the Eigenform datum consists of a cusp form for the real matrix image of of integer weight , a Dirichlet character modulo with values in , and coefficients whose images under are the coefficients of the period-one -expansion of , with . It includes the law for every and every upper-half-plane point , and, for every prime , the identity . Neither nor has a positive lower bound in this declaration; there is no condition that be coprime to .
algebraicSymbol. For a natural number , a ring embedding , an arbitrary function on the upper half-plane, a Periods datum for , a Boolean , natural , and rational , the result is . The datum supplies nonzero complex numbers and values for every Boolean , natural , and rational . For it requires , where , , and . The integer submodule spanned by all these values with must be finitely generated. No comparison is imposed on larger . No bound on or nonzero condition on is required here: makes by totalized field division, and zeroth powers, including , are . The integrals are totalized Bochner integrals, equal to zero when the integrand is not integrable.
diskMoment. Given a natural prime , natural , embeddings and , an Eigenform datum of level , weight and embedding , a Periods datum for , any , Boolean , natural , and integer , this is , where here means and . The Eigenform datum requires the normalized algebraic period-one Fourier expansion of a cusp form, the transformation law with character , and the prime eigenrelations . The Periods datum supplies nonzero and algebraic with for , where and is for true and for false; those bounded-degree values span a finitely generated integer submodule. These are totalized Bochner integrals. This definition imposes no ordinary-root condition, no coprimality on , no degree bound, and no positive-depth condition. In particular uses in both symbols, and is allowed with and .
diskFunction. For a natural prime , natural , integer , and unit , this is when the underlying -adic integer of reduces to modulo , and is zero otherwise; is its image under . At the modulus is one, so the condition holds for every . At the function is the indicator of that residue class. There is no coprimality assumption on ; at positive depth a residue class divisible by contains no such units.
RealizesMoments. For a natural prime , natural , embeddings and , an Eigenform datum , a Periods datum for , any , Boolean , and bounded -linear functional on continuous functions , this predicate says: for every positive natural , every integer coprime to , and every natural , there exists a continuous function equal at every unit to if and zero otherwise, such that . Here is the image of in , and . The Eigenform datum requires a cusp form of weight , Fourier coefficients with , character law for , and prime eigenrelations . The Periods datum requires nonzero and for , with , , , and a finitely generated integer span of those values; the integrals are totalized Bochner integrals. No ordinary-root or nonzero condition on occurs. Weights zero and one still require degree zero moments. The predicate concerns the supplied , rather than asserting that a measure exists.
specialFunction. Given a natural prime , a ring embedding , natural , a -valued Dirichlet character modulo , and a unit , this is , with the image of in . There is no primitive-character assumption or positive-depth assumption; uses the modulus-one character and uses the zeroth power .
criticalSign. For any natural modulus , any -valued Dirichlet character modulo , and any natural , this Boolean is true precisely when in , and is false otherwise. This declaration does not require positive modulus or primitivity; it includes , , and .
eulerMultiplier. For a natural prime , natural , embeddings and , an Eigenform datum , any , natural , and a Dirichlet character modulo valued in , this is . The Eigenform datum consists of a weight- cusp form with normalized algebraic Fourier coefficients, the character law , and prime eigenrelations . The character is evaluated at the displayed modulus, with no requirement of primitivity and no change of modulus. For , its value and the inverse character's value at are zero, so the two parenthesized factors are one. For the modulus is one. Neither a bound on nor an ordinary-root or nonzero condition on is imposed; inverse zero is zero, so yields zero when and one when .
normalizedCriticalValue. For a natural prime , natural , an embedding , an Eigenform datum , an arbitrary function , natural , and an algebraic-valued Dirichlet character modulo , this is , where is true exactly when , with , and . The Eigenform datum requires a weight- cusp form, Fourier coefficients with , the law with multiplier , and prime eigenrelations . There is no requirement that be a period system or nonzero, that be primitive, or that be in a critical range. The modulus-one case is included. All divisions use inverse zero equal to zero, and the integral is the totalized Bochner integral, equal to zero for a nonintegrable integrand.
Interpolates. For a natural prime , natural , embeddings and , an Eigenform datum , any function , any , and a bounded -linear functional on continuous functions on , this predicate says that for every natural , every primitive algebraic-valued Dirichlet character modulo , and every natural , there exist a continuous function and such that for every unit , , and . Here is the image of in , is true exactly when , , and , with least nonnegative representatives and totalized Bochner integration. The Eigenform datum requires a weight- cusp form with algebraic Fourier coefficients , , the law for , and prime eigenrelations . The predicate imposes neither a period-system condition on nor an ordinary-root condition on ; both may vanish, and divisions by zero are zero. It includes and the primitive modulus-one character, and includes degree zero even for or . At positive depth the character values at vanish. The existential algebraic requires the displayed normalized complex expression to lie in the image of . The statement concerns a supplied , without asserting existence of such a measure, and imposes no condition for nonprimitive characters.
Confirmed by the mission captain (proposal self-audit).