Masser–Wüstholz — terminal retained hypersurface cut
ProvedPhilipponMultiplicity.masser_wustholz_terminal_retained_cutAccepted proof-sketch; the initial projective closure degree bound remains Open. The Lean reduction proves the terminal-cut induction by retaining canonical primary components meeting the subgroup. It proves the regular hypersurface step, actual dimension drop and scheme-degree bound, survival of the original components, the shrinking-grid induction, and termination. The sole Open child is refprojective closure degree bound.
Let be a connected commutative algebraic group of dimension over a Philippon base field. Assume the original Masser–Wüstholz translation-chart bound and projective-closure equation bound , and put and . For , , and , write
Suppose a homogeneous polynomial of degree at most vanishes on but not on . For every finitely generated subgroup containing the sampling generators, there exist , a finite family of homogeneous equations of degrees at most , and a homogeneous ideal , satisfying the following properties.
Every equation in vanishes on . With , we have . All minimal primes of have Hilbert dimension , and their group zero sets meet . The ordinary scheme degree satisfies . Every minimal prime of whose group zero set meets is a minimal prime of .
The cut is terminal in the following precise sense: for every homogeneous polynomial of degree exactly ,
Thus no such equation avoids all the retained minimal primes.
The formal statement is unchanged. The remaining child says that a connected embedded group whose projective closure is defined set-theoretically by equations of degrees at most b has degree at most b^(N-n). The retained-cut construction and terminality are proved in the accepted parent sketch. Source: Masser–Wüstholz, Chapter 1 §2, printed pp.413–414: 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_terminal_retained_cut
(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 ∧
∃ F : Finset G.CoordinateRing,
(∀ Q ∈ F, ∃ d : G.FactorIndex → ℕ,
G.ambient.IsHomogeneous Q d ∧
∀ i, d i ≤ a ^ (r - 1) * D) ∧
(∀ Q ∈ F, ∀ x ∈ samplingGrid γ (((G.dimension - r + 1 : ℕ) : ℝ) * R),
G.ambient.eval Q (G.embedding x) = 0) ∧
∃ J : Ideal G.CoordinateRing, IsMultihomogeneousIdeal G.ambient J ∧
(G.vanishingIdeal Set.univ ⊔ Ideal.span (F : Set G.CoordinateRing) ≤ J) ∧
(∀ q ∈ J.minimalPrimes,
SectionThree.idealDimension G.ambient q = SectionThree.idealDimension G.ambient J) ∧
SectionThree.idealDimension G.ambient J = G.dimension - r ∧
((SectionThree.idealDegreeValue G.ambient J (fun _ => 1) : ℚ) : ℝ) ≤
((D : ℝ) / c) ^ r ∧
(∀ q ∈ J.minimalPrimes, ∃ x ∈ Γ, x ∈ idealZeroLocusOnGroup G q) ∧
(∀ q ∈ (G.vanishingIdeal Set.univ ⊔ Ideal.span (F : Set G.CoordinateRing)).minimalPrimes,
(∃ x ∈ Γ, x ∈ idealZeroLocusOnGroup G q) → q ∈ J.minimalPrimes) ∧
∀ Q : G.CoordinateRing, G.ambient.IsHomogeneous Q (fun _ => a ^ r * D) →
(∀ x ∈ samplingGrid γ (((G.dimension - r : ℕ) : ℝ) * R),
G.ambient.eval Q (G.embedding x) = 0) →
∃ p ∈ J.minimalPrimes, Q ∈ p := by sorry
end PhilipponMultiplicity