Determinant of a Frobenius-normalised stable plane is integrally cyclotomic
ProvedeigenPlane_det_congruent_cyclotomic_of_frobenius_detFix a nonzero natural number and a prime . Let be a complete discrete valuation ring which is a domain of characteristic zero with finite residue field and is a -algebra, and let be its fraction field. Work with the degree-zero divisor class group JZero M of the full modular function field of level over , equipped with an action of the Hecke polynomial ring, and with its -adic Tate module TateModule lam , the submodule of sequences with and , carrying a -module structure assumed to act levelwise: . Let be a finite set of naturals, and let be a monoid homomorphism from to the -endomorphisms of which is compatible with the Galois action on the Tate module, in the sense that whenever is the componentwise image one has for all , and which is adically continuous: for each there is a finite extension inside such that every fixing pointwise satisfies for all . Let be a -submodule of of -dimension , stable under the base change of every , and assume that for every prime with , every valuation subring of with a nonunit of , and every lying in the decomposition subgroup of and inducing on its residue field, the determinant of restricted to equals in . The conclusion is that for every and all naturals such that for every with , there is whose image in is the determinant of on and with in the ideal generated by .
This is the statement that the determinant of the two-dimensional -adic Galois representation carried by is the -adic cyclotomic character, in integral form: knowing the determinant on Frobenius elements outside a finite set forces the congruence whenever acts on -th roots of unity by the exponent . It is used when newform eigenplanes and ordinary lines inside the Tate module of are produced, where ramification of the cyclotomic character at is needed to control inertia.
import Mathlib import Definitions.Def_ModularCurve_EichlerShimuraData import Definitions.Def_ModularCurve_HeckeModule import Definitions.Def_EllipticCurve_FrobeniusTrace import Definitions.Def_FLTPrelim_Ramification import Definitions.Def_GaloisRep_Adic set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false set_option synthInstance.maxHeartbeats 400000 set_option maxHeartbeats 800000 open ModularCurve IsLocalRing TensorProduct local notation "Qbar" => AlgebraicClosure ℚ
theorem eigenPlane_det_congruent_cyclotomic_of_frobenius_det
{M : ℕ} [NeZero M] (lam : ℕ) [Fact lam.Prime]
(O'' : Type) [CommRing O''] [IsDomain O''] [IsDiscreteValuationRing O'']
[IsAdicComplete (maximalIdeal O'') O''] [Finite (ResidueField O'')]
[CharZero O''] [Algebra ℤ_[lam] O'']
(K : Type) [Field K] [Algebra O'' K] [IsFractionRing O'' K]
[Module HeckeAlg (JZero M)] [Module ℤ_[lam] (TateModule lam (JZero M))]
(_hsmul : ∀ (a : ℤ_[lam]) (x : TateModule lam (JZero M)) (n : ℕ),
((a • x : TateModule lam (JZero M)) : ℕ → JZero M) n =
(PadicInt.toZModPow n a).val • (x : ℕ → JZero M) n)
(S : Finset ℕ)
(ρM : (Qbar ≃ₐ[ℚ] Qbar) →* Module.End O'' (O'' ⊗[ℤ_[lam]] TateModule lam (JZero M)))
(hρ : ∀ (σ : Qbar ≃ₐ[ℚ] Qbar) (x y : TateModule lam (JZero M)),
(y : ℕ → JZero M) = σ • (x : ℕ → JZero M) →
∀ b : O'', ρM σ (b ⊗ₜ[ℤ_[lam]] x) = b ⊗ₜ[ℤ_[lam]] y)
(hcont : GaloisActionIsAdicContinuous O'' ρM)
(W : Submodule K (K ⊗[O''] (O'' ⊗[ℤ_[lam]] TateModule lam (JZero M))))
(hW2 : Module.finrank K W = 2)
(hW : ∀ σ : Qbar ≃ₐ[ℚ] Qbar, ∀ w ∈ W, (ρM σ).baseChange K w ∈ W)
(hfrobdet : ∀ (ℓ : ℕ), ℓ.Prime → ¬ ℓ ∣ M → ℓ ∉ S →
∀ B : ValuationSubring Qbar, B.LiesOverPrime ℓ →
∀ σ : Qbar ≃ₐ[ℚ] Qbar, B.IsFrobeniusAt σ ℓ →
LinearMap.det (M := ↥W) (((ρM σ).baseChange K).restrict (hW σ)) = (ℓ : K)) :
∀ (σ : Qbar ≃ₐ[ℚ] Qbar) (n a : ℕ),
(∀ μ : Qbar, μ ^ lam ^ n = 1 → σ μ = μ ^ a) →
∃ d : O'', algebraMap O'' K d =
LinearMap.det (M := ↥W) (((ρM σ).baseChange K).restrict (hW σ)) ∧
d - (a : O'') ∈ Ideal.span {((lam ^ n : ℕ) : O'')} := by sorry