Masser–Wüstholz — pointed prime with bounded translation orbit
ProvedPhilipponMultiplicity.masser_wustholz_pointed_prime_orbitAccepted proof-sketch; one unpointed prime-selection input remains Open. The Lean reduction translates the selected prime through a subgroup point to the identity, pulls back its equations with the exact degree bound, preserves the sampled orbit cardinal, and transfers the component-dimension bound for every component meeting the subgroup. The sole Open child is refunpointed prime selection before recentering.
Let be a Philippon base field and let be a connected commutative algebraic group of dimension . Suppose are integers satisfying the Masser–Wüstholz hypotheses: translations on each finitely generated subgroup have homogeneous polynomial charts of degree at most covering that subgroup, and the projective closure of has defining equations of degree at most . Set
Fix , points , and a real radius . Write
Suppose a homogeneous polynomial of degree at most vanishes on but not on all of . For every finitely generated subgroup containing the , there exist an integer , a homogeneous prime ideal , and finitely many homogeneous equations , each of degree at most , such that the group zero set satisfies
Moreover, every minimal prime of whose group zero set meets satisfies
The formal statement is unchanged. The remaining child selects a homogeneous prime whose group zero set meets the finitely generated subgroup, with the sampled orbit bound and original equations of degree at most a^(n-1)D satisfying the local dimension estimate. The child does not require the prime to pass through the identity. Source: Masser–Wüstholz, Chapter 1, §2, printed pp.414–415: https://gdz.sub.uni-goettingen.de/id/PPN356556735_0072 .
import Definitions.Def_PhilipponMultiplicity_GeometricSupport import Definitions.Def_PhilipponMultiplicity_SectionFive set_option autoImplicit false open scoped BigOperators
namespace PhilipponMultiplicity
theorem masser_wustholz_pointed_prime_orbit
(K : Type*) [NontriviallyNormedField K] (hK : IsPhilipponBaseField K)
(E : EmbeddedCommutativeGroup K)
(hn : 0 < (singleGroupProduct E).dimension)
(hconnected : @_root_.IsConnected _ (singleGroupProduct E).zariskiTopology Set.univ)
(a b : ℕ) (ha : 1 ≤ a) (hb : 1 ≤ b)
(htranslation : MWTranslationBound (singleGroupProduct E) a)
(hclosure : ∃ equations : Finset (singleGroupProduct E).CoordinateRing,
(∀ P ∈ equations, (singleGroupProduct E).ambient.IsHomogeneousAtMost P (fun _ => b)) ∧
groupProjectiveClosure (singleGroupProduct E) =
{x | ∀ P ∈ equations, (singleGroupProduct E).ambient.eval P x = 0})
(m D : ℕ) (hm : 1 ≤ m) (hD : 1 ≤ D)
(γ : Fin m → (singleGroupProduct E).Point) (R : ℝ) (hR : 1 ≤ R)
(P : (singleGroupProduct E).CoordinateRing)
(hP : (singleGroupProduct E).ambient.IsHomogeneousAtMost P (fun _ => D)) :
let G := singleGroupProduct E
let c : ℝ := 1 / ((a : ℝ) ^ G.dimension * (b : ℝ) ^ (E.ambientDimension - G.dimension))
(∀ x ∈ samplingGrid γ ((G.dimension : ℝ) * R),
G.ambient.eval P (G.embedding x) = 0) →
(∃ x : G.Point, G.ambient.eval P (G.embedding x) ≠ 0) →
∀ Γ : Submodule ℤ G.Point, Γ.FG → (∀ i, γ i ∈ Γ) →
∃ r : ℕ, 1 ≤ r ∧ r ≤ G.dimension ∧
∃ p : Ideal G.CoordinateRing, p.IsPrime ∧ IsMultihomogeneousIdeal G.ambient p ∧
G.vanishingIdeal Set.univ ≤ p ∧
(0 : G.Point) ∈ idealZeroLocusOnGroup G p ∧
((((fun g => translate g (idealZeroLocusOnGroup G p)) '' samplingGrid γ R).ncard : ℝ) ≤
((D : ℝ) / c) ^ r) ∧
∃ Q : Finset G.CoordinateRing,
(∀ F ∈ Q, ∃ d : G.FactorIndex → ℕ,
G.ambient.IsHomogeneous F d ∧
∀ i, (d i : ℝ) ≤ (a : ℝ) ^ G.dimension * (D : ℝ)) ∧
(∀ F ∈ Q, F ∈ p) ∧
∀ q ∈ (G.vanishingIdeal Set.univ ⊔ Ideal.span (Q : Set G.CoordinateRing)).minimalPrimes,
(∃ x ∈ Γ, x ∈ idealZeroLocusOnGroup G q) →
varietyDimension G (idealZeroLocusOnGroup G q) ≤ G.dimension - r := by sorry
end PhilipponMultiplicity