Section 2 — recovery of Masser–Wüstholz Theorem I
ProvedPhilipponMultiplicity.masser_wustholz_recoveryAccepted proof-sketch; one geometric input remains Open. The Lean reduction proves the entire lattice deduction: coordinate-quotient pigeonhole counting, short independent integer relations with the exact exponents, the strict rank inequality, and the original constant and equation bounds. It explicitly handles torsion in the sampled quotient. Its single Open child is the refgeometric grid-coset estimate with bounded equations.
The target statement is unchanged. With c=a^(−n)b^(−(N−n)), it retains θ≥n/m, the sampling threshold, every k,r and subgroup rank condition, all short-vector bounds, and the bounded equations for a containing algebraic set. The original translation and closure-equation conditions defining a and b remain hypotheses. Source: https://gdz.sub.uni-goettingen.de/id/PPN356556735_0072 (printed pp.411–417); Philippon 1986, p.361.
import Definitions.Def_PhilipponMultiplicity_GeometricSupport set_option autoImplicit false open scoped BigOperators
namespace PhilipponMultiplicity
theorem masser_wustholz_recovery
(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) (θ : ℝ)
(hθ : ((singleGroupProduct E).dimension : ℝ) / m ≤ θ)
(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 : ℝ) * ((D : ℝ) / c) ^ θ),
G.ambient.eval P (G.embedding x) = 0) →
(∃ x : G.Point, G.ambient.eval P (G.embedding x) ≠ 0) →
∃ k r : ℕ, 1 ≤ k ∧ k ≤ m ∧ 1 ≤ r ∧ r ≤ G.dimension ∧
(m : ℝ) < (k : ℝ) + (r : ℝ) / θ ∧
∃ Z : Submodule ℤ (Fin m → ℤ), k ≤ Module.finrank ℤ Z ∧
∃ H : AlgebraicSubgroup G, varietyDimension G H.carrier ≤ G.dimension - r ∧
(∀ σ ∈ Z, integerCombination γ σ ∈ H.carrier) ∧
(∃ σ : Fin k → Z,
LinearIndependent ℤ (fun j => (σ j).val) ∧
∀ j : Fin k, ∀ i : Fin m,
|((σ j).val i : ℝ)| ≤ ((D : ℝ) / c) ^ ((r : ℝ) / ((m : ℝ) - j.val))) ∧
∃ S : GroupSubvariety G, H.carrier ⊆ S.carrier ∧
varietyDimension G S.carrier ≤ G.dimension - r ∧
DefinedByEquations G S.carrier ((D : ℝ) / c) := by sorry
end PhilipponMultiplicityRead-back
What the Lean code literally says, in plain math · gpt-6
Let be any nontrivially normed field for which there is either an isometric ring isomorphism , or a prime natural number and an isometric ring isomorphism . An embedded group product consists of a positive finite number of commutative groups , each carried by a locally closed subset of , with addition and negation locally represented by nonsimultaneously-zero homogeneous polynomial tuples of a common multidegree; its points are the tuples of factor points, with componentwise addition, embedded in . Write for the block coordinate ring, evaluate polynomials at the chosen homogeneous representatives of embedded points, and use the induced Zariski topology, where the ambient topology is generated by nonvanishing sets of block-homogeneous polynomials. A polynomial is homogeneous of multidegree when every supported monomial has degree in block ; zero is allowed at every multidegree. An algebraic subgroup means an additive subgroup closed in this topology, and . For , let be the ideal spanned by all homogeneous polynomials vanishing on its embedded points, and let be the rational polynomial whose values, for all coordinatewise sufficiently large natural multidegrees, are the dimensions of the images of those homogeneous pieces in , chosen if it exists and set to zero if none exists. Write (zero for the zero polynomial), , and if , with otherwise. Here are natural multidegrees and is the top total-homogeneous component. For each factor, is the same Hilbert-polynomial total degree computed for its carrier in its single projective space, and is the defined dimension of . Take any embedded commutative group and let be its one-factor product, so ; assume and that the whole point set of is connected. Let natural numbers satisfy . Assume that for every finitely generated -submodule and every there is one Zariski-open polynomial translation chart containing all of , of degree at most : its homogeneous coordinate polynomials all have a common natural degree at most , and at every point of its domain their tuple is nonzero and represents . Also assume that a finite set of homogeneous coordinate polynomials, each of some degree at most , cuts out exactly the ambient projective Zariski closure of . Let satisfy , let be arbitrary points of , let satisfy , and let be homogeneous of some natural degree at most . Define , where is natural subtraction, and put . If vanishes at every embedded point of and there exists at least one at which does not vanish, then there exist natural numbers satisfying , , and the strict real inequality ; a -submodule with ; and an algebraic subgroup such that and for every . Moreover there are elements whose images in are linearly independent over , with for every and every . Finally there is a locally closed subset containing with and a finite set of homogeneous coordinate polynomials cutting out exactly within , each polynomial having some natural degree at most the real number . The subgroup is not required to be connected, is not required to have rank exactly or to be saturated, and is not required to be irreducible. The stated hypotheses force and , and makes every denominator positive; natural subtraction in is defined even without a separately stated inequality . Nonvanishing at one group point is an explicit hypothesis, stronger than nonzeroness merely as a coordinate polynomial.