Affine embedding charts inside prescribed open neighborhoods
ProvedPhilipponMultiplicity.exists_affine_embedding_chart_in_openLet be an algebraically closed field, let
and let have locally closed image. Give the induced Zariski topology. For every point and open neighborhood of , there exist an open subset , a nonnegative integer , a radical ideal , and a homeomorphism
with the following two coordinate properties.
First, there are polynomials such that, for every , each block is nonzero and represents the given projective point:
Second, for each affine coordinate , there are multihomogeneous polynomials in the coordinates of , of the same multidegree, such that throughout ,
Evaluation uses representatives of the projective points; equality of multidegrees makes the quotient independent of their scaling. The polynomials for a coordinate are fixed on all of .
The affine zero set has its ordinary Zariski topology, equivalently the topology induced by the evaluation-ideal map into the prime spectrum of its polynomial ring. No irreducibility, positive-dimensionality, or characteristic-zero assumption is imposed.
Formalization Note. The proof constructs standard multiprojective chart homeomorphisms in the concrete Zariski topologies and converts affine polynomial fractions to balanced multihomogeneous fractions with nonzero denominators. The affine neighborhood construction is now proved as well, completing the chart theorem with both coordinate directions and refinement inside the prescribed open neighborhood. Every theorem dependency of the accepted reduction is now Proved, and this theorem has zero Open leaves. The final affine construction is proved here. The original formal statement and hypotheses are unchanged.
import Definitions.Def_PhilipponMultiplicity_Geometry import Mathlib set_option autoImplicit false
namespace PhilipponMultiplicity
universe u
theorem exists_affine_embedding_chart_in_open
(K : Type u) [Field K] [IsAlgClosed K]
(M : MultiProjectiveSpace K) (X : Type u) (e : X → M.Point)
(he : Function.Injective e)
(hX : @IsLocallyClosed _ M.zariskiTopology (Set.range e))
(x : X) (W : Set X)
(hW : @IsOpen X (TopologicalSpace.induced e M.zariskiTopology) W)
(hxW : x ∈ W) :
letI : TopologicalSpace X := TopologicalSpace.induced e M.zariskiTopology
∃ S : Set X, IsOpen S ∧ x ∈ S ∧ S ⊆ W ∧
∃ (n : ℕ) (J : Ideal (MvPolynomial (Fin n) K)), J.IsRadical ∧
∃ a : @Homeomorph S (MvPolynomial.zeroLocus K J) inferInstance
(TopologicalSpace.induced
(fun z : MvPolynomial.zeroLocus K J => MvPolynomial.pointToPoint (k := K) z.val)
inferInstance),
(∃ L : M.Variable → MvPolynomial (Fin n) K,
∀ z : S, ∀ b, ∃ h :
(fun i => MvPolynomial.aeval (a z).val (L ⟨b, i⟩)) ≠ 0,
Projectivization.mk K
(fun i => MvPolynomial.aeval (a z).val (L ⟨b, i⟩)) h = e z.val b) ∧
(∀ i : Fin n, ∃ (D : M.FactorIndex → ℕ) (P Q : M.CoordinateRing),
M.IsHomogeneous P D ∧ M.IsHomogeneous Q D ∧
∀ z : S, M.eval Q (e z.val) ≠ 0 ∧
(a z).val i = M.eval P (e z.val) / M.eval Q (e z.val)) := by sorry
end PhilipponMultiplicity