Mixed cut flags with injective cuts and reduced final quotients after completion
OpenPhilipponMultiplicity.exists_mixed_cut_flag_with_completed_local_conditionsLet be a nonempty irreducible closed subset of over a Philippon base field . Let satisfy and . If is closed and is nonempty, there is a product linear section of block codimensions whose intersection with is finite and disjoint from .
The section can be defined by an ordered list of block-linear forms , with exactly forms from block . Write for the multicone polynomial coordinate ring and put and . These equations define exactly the indicated section on multiprojective points.
For a coordinate tuple with every block nonzero, put , where is its evaluation maximal ideal, and let be its maximal-ideal-adic completion. Writing for the affine zero set of , the local conclusions are
and
These completed local conditions supply the geometric input for recovering the ordinary point-local conditions by faithful flatness.
Formalization Note. The accepted reduction proves the passage from ordinary local injective cuts and regular final local quotients to these completed local conditions. Its sole remaining Open input is the geometric mixed-flag construction with regular final local quotients. Noetherianity of local completion is now Proved by power-series evaluation and adic lifting. Quotient flatness, ascent of multiplication injectivity, local regularity ascent, and the implication from regularity to radicality are proved in the reduction. All hypotheses, witnesses, and the original formal statement are unchanged.
import Mathlib.RingTheory.AdicCompletion.LocalRing import Mathlib.RingTheory.Nullstellensatz import Mathlib.RingTheory.Localization.Ideal import Definitions.Def_PhilipponMultiplicity_GeometricSupport set_option autoImplicit false open scoped BigOperators Topology
namespace PhilipponMultiplicity
open SectionThree SectionThreeSupport
theorem exists_mixed_cut_flag_with_completed_local_conditions
(K : Type*) [NontriviallyNormedField K] (hK : IsPhilipponBaseField K) :
∀ (M : MultiProjectiveSpace K) (W : Set M.Point),
@IsClosed _ M.zariskiTopology W → @IsIrreducible _ M.zariskiTopology W →
∀ (α : M.FactorIndex → ℕ), (∀ i, α i ≤ M.ambientDimension i) →
(∑ i, α i = locusDimension M W) →
∀ B : Set M.Point, @IsClosed _ M.zariskiTopology B → B ⊆ W →
(W \ B).Nonempty →
∃ L : ∀ i : M.FactorIndex, Submodule K (Fin (M.ambientDimension i + 1) → K),
(∀ i, Module.finrank K (L i) + α i = M.ambientDimension i + 1) ∧
(linearSlice M W L).Finite ∧ Disjoint (linearSlice M W L) B ∧
∃ (l : List M.FactorIndex) (P : ℕ → M.CoordinateRing)
(J : ℕ → Ideal M.CoordinateRing),
(∀ i, l.count i = α i) ∧ J 0 = M.vanishingIdeal W ∧
(∀ k (hk : k < l.length),
M.IsHomogeneous (P k) (Pi.single l[k] 1) ∧
J (k+1) = J k ⊔ Ideal.span {P k} ∧
∀ v : M.Variable → K,
(∀ i : M.FactorIndex,
(fun j : Fin (M.ambientDimension i + 1) => v ⟨i,j⟩) ≠ 0) →
(∀ Q ∈ J k, MvPolynomial.eval v Q = 0) →
let R := Localization.AtPrime (MvPolynomial.vanishingIdeal K {v})
let C := AdicCompletion (IsLocalRing.maximalIdeal R) R
let f := (algebraMap R C).comp (algebraMap M.CoordinateRing R)
∀ Q : C, f (P k) * Q ∈ (J k).map f → Q ∈ (J k).map f) ∧
(∀ x : M.Point, x ∈ linearSlice M W L ↔
x ∈ W ∧ ∀ k < l.length, M.eval (P k) x = 0) ∧
(∀ v : M.Variable → K,
(∀ i : M.FactorIndex,
(fun j : Fin (M.ambientDimension i + 1) => v ⟨i,j⟩) ≠ 0) →
(∀ Q ∈ J l.length, MvPolynomial.eval v Q = 0) →
let R := Localization.AtPrime (MvPolynomial.vanishingIdeal K {v})
let C := AdicCompletion (IsLocalRing.maximalIdeal R) R
let f := (algebraMap R C).comp (algebraMap M.CoordinateRing R)
((J l.length).map f).IsRadical) := by sorry
end PhilipponMultiplicity