Proper-subgroup Hilbert degrees in the Weierstrass extension
ProvedWeierstrassEllipticZeta.philippon_subgroup_degree_profileUse the period pair, sigma differential data, and entire functions
off the period lattice , with no common zero. Let be any compatible Philippon model of these functions. For every proper connected Zariski closed algebraic subgroup of its group, put , an integer submodule of .
At least one of the following alternatives holds:
- and for every positive integer pair .
- and for every positive integer pair .
The branch is chosen before . Both branches may hold. The degree form is the factorial-normalized top part of the actual quotient Hilbert polynomial of the embedded subgroup’s vanishing ideal, not an assigned numerical degree. Under its general definition the polynomial is zero if an eventual Hilbert polynomial does not exist, so its required existence and positivity must be established in proving this statement.
This is a proved geometric application theorem in Senthil. It combines the extension’s proper-subgroup projection classification with the nonempty-variety degree bound and the stronger mixed-degree bound when projection onto the additive factor is surjective. It has no finite sample, contact order, polynomial vanishing hypothesis, or multiplicity conclusion.
import Definitions.Def_WeierstrassEllipticZeta_PhilipponModel set_option autoImplicit false open WeierstrassEllipticZeta WeierstrassEllipticZeta.PhilipponApplication open PhilipponMultiplicity
theorem WeierstrassEllipticZeta.philippon_subgroup_degree_profile (L : PeriodPair) (D : EllipticSigmaDifferentialData L)
(S : Fin 5 → ℂ → ℂ)
(hS : ∀ j, AnalyticOnNhd ℂ (S j) Set.univ)
(hS_value : ∀ z : ℂ, z ∉ L.lattice → ∀ j : Fin 5,
S j z = D.sigma z ^ 3 * ![1, L.weierstrassP z, L.derivWeierstrassP z,
weierstrassZeta L z,
L.derivWeierstrassP z * weierstrassZeta L z + 2 * L.weierstrassP z ^ 2] j)
(hS_ne : ∀ z : ℂ, ∃ j : Fin 5, S j z ≠ 0)
(M : Model S) (H : AlgebraicSubgroup M.group)
(hH : H.IsConnected) (hproper : H.carrier ≠ Set.univ) :
((M.pullbackSubmodule H = ⊥) ∧
∀ m n : ℕ, 1 ≤ m → 1 ≤ n →
1 ≤ hilbertDegreeForm M.group H.carrier ![m, n]) ∨
((M.pullbackSubmodule H ≤ L.lattice) ∧
∀ m n : ℕ, 1 ≤ m → 1 ≤ n →
(m : ℝ) ≤ hilbertDegreeForm M.group H.carrier ![m, n]) := by sorryConfirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.