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. This is an auxiliary geometric construction, not a verbatim numbered source theorem. The completion is that of the ambient local multicone ring, and the cut ideal is then extended along the composite coordinate-ring map. Empty sections are permitted. The simultaneous selection of the flag and comparison with these completed local rings remain Open.
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