Mixed cut flags with regular final local quotients
OpenPhilipponMultiplicity.exists_mixed_cut_flag_with_regular_local_final_quotientsLet be a Philippon base field and let be a finite product of projective spaces. Let be a nonempty irreducible closed subset. Suppose and . For every closed subset with , there are vector subspaces of codimension such that is finite and disjoint from .
These subspaces admit an ordered list of block-linear equations , with exactly equations from block , defining this same section on multiprojective points. In the multicone coordinate ring , put and . For a coordinate tuple with every block nonzero, let be its evaluation maximal ideal and set . The flag satisfies
and
This strengthens the final reducedness condition to regularity and supplies a geometric input for passing to completed local rings. Empty final sections are permitted, and no regularity is required of intermediate quotients.
Formalization Note. A checked reduction proves these local conditions from associated-prime avoidance and smoothness of the final punctured multicone. The proof establishes localized multiplication injectivity, the nonzero-coordinate condition for primes below an evaluation ideal, and regularity of the final localized quotient via smoothness and the quotient-localization equivalence. The generic geometric choice remains Open. All original hypotheses, witnesses, and the formal statement are unchanged; no regularity is required of intermediate quotients.
import Mathlib import Definitions.Def_PhilipponMultiplicity_GeometricSupport set_option autoImplicit false open scoped BigOperators Topology
namespace PhilipponMultiplicity
open SectionThree SectionThreeSupport
theorem exists_mixed_cut_flag_with_regular_local_final_quotients
(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 f := algebraMap M.CoordinateRing R
∀ Q : R, 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})
IsRegularLocalRing (R ⧸ (J l.length).map (algebraMap M.CoordinateRing R))) := by sorry
end PhilipponMultiplicity