Every circle with meets in exactly points
ProvedCurveSymmetry.family_metric_circle_cardalgebraic-geometrycurve-symmetry-leanzariski-topology
Let be an integer, let be nonreal, (no condition on ), and let . Let be a real number.
Then the circle of radius centered at the origin meets in a finite set of exactly points:
In the proof of Lemma 4 of the note, this count is what shows that is infinite.
Formalization Note: The circle is the metric sphere of radius about in , and the count is Nat.card of the intersection, so finiteness is part of the statement.
Preamble
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.Calculus.FDeriv.Analytic import Mathlib.Analysis.Calculus.FDeriv.Equiv import Mathlib.Analysis.Calculus.FDeriv.Mul import Mathlib.Analysis.Calculus.FDeriv.Pi 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.Polynomial.Eisenstein.Criterion import Mathlib.RingTheory.Polynomial.GaussLemma import Mathlib.RingTheory.RootsOfUnity.Complex import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.Tactic import Mathlib.Topology.Algebra.Module.FiniteDimension import Mathlib.Topology.Compactification.OnePoint.ProjectiveLine open CurveSymmetry set_option autoImplicit false
Formal statement
theorem CurveSymmetry.family_metric_circle_card {m : ℕ} (hm : 0 < m) {α : ℂ}
(ha : α ≠ star α) {r : ℝ} (hr : 0 < r) :
Nat.card ↥(extremalCurve m α ∩ Metric.sphere (0 : ℂ) r) = 2 * m := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note), proof of Lemma 4, p. 4, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/FamilyCircleSections.lean (C. Perassi)
Human review
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.