Masser–Wüstholz — local prime estimate over finitely generated subgroups
ProvedPhilipponMultiplicity.masser_wustholz_local_prime_estimateAccepted proof-sketch; one pointed-prime selection input remains Open. The Lean reduction constructs bounded integer relations from equal sampled translates, proves that their image generates a subgroup contained in the selected pointed zero set, and establishes an exact equality of sampled coset and translation-orbit counts. The sole Open child is the refpointed prime with bounded translation orbit.
Let be a Philippon base field, and let be a connected commutative algebraic group of positive dimension . Let be integers. Assume that translations on each finitely generated subgroup have homogeneous polynomial presentations of degree at most on a chart containing that subgroup, and that the projective closure of is defined by finitely many homogeneous equations of degree at most . Put
Fix , points , and . Write and
Suppose a homogeneous polynomial of degree at most vanishes on but not identically on .
For every finitely generated subgroup containing the , there exist an integer , a finite set with for all , and finitely many homogeneous polynomials , each of degree at most , with the following properties. If is the subgroup generated by , then
Furthermore, every minimal prime of whose zero set meets satisfies
The formal statement is unchanged. The remaining child supplies a homogeneous prime through the identity, its sampled orbit bound, and bounded equations with the local component-dimension estimate. No bounded-relation or subgroup-coset conclusion is assumed in that child. 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_local_prime_estimate
(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 ∧
∃ relations : Finset (Fin m → ℤ), (∀ v ∈ relations, ∀ i, |(v i : ℝ)| ≤ R) ∧
let A := (Submodule.span ℤ
(integerCombination γ '' (relations : Set (Fin m → ℤ)))).toAddSubgroup
((((fun g => translate g (A : Set G.Point)) '' 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 : ℝ)) ∧
(∀ x ∈ A, ∀ F ∈ Q, G.ambient.eval F (G.embedding x) = 0) ∧
∀ 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