Mixed cut flags with regular cuts and reducedness at geometric points
OpenPhilipponMultiplicity.exists_mixed_cut_flag_with_point_local_conditionsLet be a Philippon base field, , and a closed irreducible subvariety. Let be closed, and fix with .
There are vector subspaces with such that is finite and disjoint from . There are an ordered list of blocks , block-linear forms , and actual cut ideals satisfying
On , the equations for define exactly .
For a vector whose every block is nonzero, let . The same flag satisfies the following conditions at actual geometric points of its successive multicones:
- For every and every such with for all , multiplication by is injective on .
- For every such with for all , the quotient is reduced.
Formalization Note. An accepted sketch reduces this assertion to the existence of a flag with completed local conditions. Descent of multiplication injectivity and radicality from the maximal-ideal completion is proved using faithful flatness. The simultaneous geometric flag construction and identification of the completed local equations remain Open. The local rings are those of the ambient multicone at evaluation maximal ideals, restricted to nonzero coordinate blocks and actual cut points; empty final sections are permitted.
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_point_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 f := algebraMap M.CoordinateRing
(Localization.AtPrime (MvPolynomial.vanishingIdeal K {v}))
∀ Q, 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) →
((J l.length).map (algebraMap M.CoordinateRing
(Localization.AtPrime (MvPolynomial.vanishingIdeal K {v})))).IsRadical) := by sorry
end PhilipponMultiplicity