Masser–Wüstholz — geometric grid-coset estimate with bounded equations
ProvedPhilipponMultiplicity.masser_wustholz_geometric_coset_boundAccepted proof-sketch; one local geometric input remains Open. The Lean reduction proves finite-choice and Noetherian globalization, the global component-dimension bound, passage to an algebraic subgroup by Zariski closure, and preservation of the coset count and original equation-degree bound. Its sole Open child is the reflocal prime estimate over finitely generated subgroups.
Let be a connected positive-dimensional commutative algebraic group embedded in one projective space, with the translation bound and closure-equation bound of Masser–Wüstholz. Write
Let , let , and let . Suppose a homogeneous polynomial of degree at most vanishes on the nonnegative sampling grid of radius , but does not vanish identically on .
Then there are an integer , an algebraic subgroup of dimension at most , and a relatively closed algebraic subset of such that
The set is cut out in by finitely many actual homogeneous equations, each of degree at most .
The formal statement is unchanged. The remaining child retains all bounded differences stabilizing the selected local prime and leaves the prime-selection, localized component-dimension, and component-degree estimates explicit. The global subgroup and containing variety are constructed in the accepted reduction. Source: Masser–Wüstholz, Chapter 1, §§2–3, printed pp.413–417: https://gdz.sub.uni-goettingen.de/id/PPN356556735_0072 .
import Definitions.Def_PhilipponMultiplicity_GeometricSupport set_option autoImplicit false open scoped BigOperators
namespace PhilipponMultiplicity
theorem masser_wustholz_geometric_coset_bound
(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) →
∃ r : ℕ, 1 ≤ r ∧ r ≤ G.dimension ∧
∃ H : AlgebraicSubgroup G, varietyDimension G H.carrier ≤ G.dimension - r ∧
((((fun g => translate g H.carrier) '' samplingGrid γ R).ncard : ℝ) ≤
((D : ℝ) / c) ^ r) ∧
∃ V : GroupSubvariety G, H.carrier ⊆ V.carrier ∧
varietyDimension G V.carrier ≤ G.dimension - r ∧
DefinedByEquations G V.carrier ((a : ℝ) ^ G.dimension * (D : ℝ)) := by sorry
end PhilipponMultiplicity