Compatible affine closed-point charts for regular maps
ProvedPhilipponMultiplicity.regular_map_has_affine_closed_point_chartsLet be an algebraically closed field. Let and be locally closed subsets of finite products of projective spaces over , with their induced Zariski topologies, and let be regular. For every , there are open subsets and , finitely generated -algebras
homeomorphisms and , and a -algebra map , such that
Here are nonnegative integers, are ideals, and the maximal spectra have their Zariski topologies. The last equality is an equality of ideals of . No irreducibility or positive-dimensionality is required.
Formalization Note. The proof identifies affine polynomial zero sets with the maximal spectra of their coordinate quotients and checks compatibility of polynomial coordinate maps with the induced quotient homomorphisms. The required polynomial charts are now proved, completing the closed-point chart theorem. 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 regular_map_has_affine_closed_point_charts
(K : Type u) [Field K] [IsAlgClosed K]
(M N : MultiProjectiveSpace K) (X Y : Type u)
(e : X → M.Point) (j : Y → N.Point) (f : X → Y)
(he : Function.Injective e) (hj : Function.Injective j)
(hX : @IsLocallyClosed _ M.zariskiTopology (Set.range e))
(hY : @IsLocallyClosed _ N.zariskiTopology (Set.range j))
(hf : M.IsRegularAlong N e (j ∘ f)) (x : X) :
letI : TopologicalSpace X := TopologicalSpace.induced e M.zariskiTopology
letI : TopologicalSpace Y := TopologicalSpace.induced j N.zariskiTopology
∃ (S : Set X) (T : Set Y), IsOpen S ∧ x ∈ S ∧ IsOpen T ∧
∃ hST : Set.MapsTo f S T,
∃ (m n : ℕ) (I : Ideal (MvPolynomial (Fin m) K))
(J : Ideal (MvPolynomial (Fin n) K))
(a : S ≃ₜ MaximalSpectrum (MvPolynomial (Fin n) K ⧸ J))
(b : T ≃ₜ MaximalSpectrum (MvPolynomial (Fin m) K ⧸ I))
(φ : (MvPolynomial (Fin m) K ⧸ I) →ₐ[K] (MvPolynomial (Fin n) K ⧸ J)),
∀ z : S, (b ⟨f z.val, hST z.property⟩).asIdeal =
Ideal.comap φ.toRingHom (a z).asIdeal := by sorry
end PhilipponMultiplicity