Removing a divisor that contains no component of does not change the Zariski closure of
ProvedCurveSymmetry.hypersurface_deleted_divisor_closurealgebraic-geometrycurve-symmetry-leaneuclidean-geometry
Let with , and assume that no irreducible factor of divides : for every irreducible with one has . In the prime spectrum with its Zariski topology put and . Then
Neither nor needs to be irreducible. In the formalization is a chart coordinate, such as in a boundary chart of : the part of the chart curve where , which lies over the affine plane, is dense in the whole chart curve. This is how the boundary points are shown to lie in the closure of the curve (6) in .
Formalization Note: is PrimeSpectrum.zeroLocus {F} in PrimeSpectrum (MvPolynomial (Fin 2) ℂ), whose topology is Mathlib's Zariski topology.
Preamble
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_03_IsometriesAndCharts 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 open CurveSymmetry set_option autoImplicit false open MvPolynomial
Formal statement
theorem CurveSymmetry.hypersurface_deleted_divisor_closure (F u : BPoly) (hF0 : F ≠ 0)
(havoid : ∀ q : BPoly, Irreducible q → q ∣ F → ¬ q ∣ u) :
closure (PrimeSpectrum.zeroLocus ({F} : Set BPoly) ∩
{p : PrimeSpectrum BPoly | u ∉ p.asIdeal}) =
PrimeSpectrum.zeroLocus ({F} : Set BPoly) := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for Section 3, closure of equation (6), p. 3, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/MixedCornerClosure.lean (C. Perassi)