Chart gluing: a set closed in all four charts and containing the affine curve contains
ProvedCurveSymmetry.family_projective_chart_gluingLet be an integer and let be arbitrary. Let be the polynomial of equation (6), and let be the zero locus of its bihomogenization of bidegree in homogeneous coordinates ,
so that . Consider the four standard charts , , , and , and give its Zariski topology, whose closed sets are the common zero sets of families of polynomials in two variables. Let be a set such that is Zariski closed in for each .
Then, if contains the affine curve in the chart , it contains all of :
This is the gluing step in identifying with the closure of the affine curve (6) in , the curve whose singular points and genus Lemma 4 describes: a set that is closed in every chart and contains the affine curve already contains all of , boundary points included.
Formalization Note: no topology on is used; closedness of is required chart by chart, for the Zariski topology on induced from the prime spectrum through evaluation ideals (a local instance). is defined by evaluating at chosen representatives of the two points, which does not depend on the choice by bihomogeneity.
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_03_IsometriesAndCharts import Definitions.Def_CurveSymmetry_04_ProjectiveClosure import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.MvPolynomial.PDeriv import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Algebra.Polynomial.Reverse import Mathlib.Analysis.Complex.Isometry import Mathlib.Analysis.Complex.OperatorNorm import Mathlib.Analysis.Complex.Polynomial.Basic import Mathlib.Analysis.Normed.Affine.MazurUlam import Mathlib.Data.Complex.Basic import Mathlib.FieldTheory.Separable import Mathlib.RingTheory.MvPolynomial.Homogeneous import Mathlib.RingTheory.MvPolynomial.IrreducibleQuadratic import Mathlib.RingTheory.Nullstellensatz import Mathlib.RingTheory.Polynomial.Eisenstein.Criterion import Mathlib.RingTheory.Polynomial.GaussLemma import Mathlib.RingTheory.RootsOfUnity.Complex import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.RingTheory.Spectrum.Prime.Jacobson import Mathlib.RingTheory.Spectrum.Prime.Topology import Mathlib.Tactic import Mathlib.Topology.Compactification.OnePoint.ProjectiveLine open CurveSymmetry set_option autoImplicit false open MvPolynomial attribute [local instance] CurveSymmetry.instTopologicalSpaceForallFinOfNatNatComplex_projectiveClosureGluing
theorem CurveSymmetry.family_projective_chart_gluing {m : ℕ} (hm : 0 < m) (α : ℂ)
(S : Set (ProjectiveLine × ProjectiveLine)) (hs : ClosedInProjectiveCharts S)
(hA : affineProjectiveChart '' {v : Fin 2 → ℂ | eval v (familyPolynomial m α) = 0} ⊆ S) :
familyProjectiveCurve m α ⊆ S := by sorry