Point-local regular sections preserving isolated point counts
OpenPhilipponMultiplicity.exists_point_local_mixed_section_preserving_isolated_pointsLet be a Philippon base field, , and a closed irreducible variety. Fix with . Let have dimension , and let be a finite subset of the section . Assume that each has a Zariski-open neighborhood with .
There are subspaces of the same dimensions such that is finite, together with an injection of sets . There are also 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.
The special section may have positive-dimensional components away from . The injection need not be a geometric morphism and does not assert that the original points lie in . Empty sections, empty cutting lists, and zero local quotients are allowed.
Formalization Note. These are local rings of the multicone at evaluation maximal ideals, retaining the affine scale in each projective block. Conditions are imposed only at points lying on the corresponding cut, and vectors with a zero block are excluded. Simultaneous selection of the section, injection, and flag with these point-local properties remains Open. This auxiliary synthesis of isolated-point persistence, generic filter regularity, and reduced general sections is not a verbatim theorem from one source. No condition on an entire coordinate localization, no eventual homogeneous ideal condition, and no numerical mixed-degree count is assumed.
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_point_local_mixed_section_preserving_isolated_points
(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) →
∀ L : ∀ i : M.FactorIndex, Submodule K (Fin (M.ambientDimension i + 1) → K),
(∀ i, Module.finrank K (L i) + α i = M.ambientDimension i + 1) →
∀ S : Set M.Point, S.Finite → S ⊆ linearSlice M W L →
(∀ x ∈ S, ∃ U : Set M.Point, @IsOpen _ M.zariskiTopology U ∧ x ∈ U ∧
U ∩ linearSlice M W L ⊆ S) →
∃ 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 ∧
Nonempty (S ↪ linearSlice M W L') ∧
∃ (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