The tangent cones and each vanish at exactly points of
ProvedCurveSymmetry.family_diagonal_tangent_direction_countsalgebraic-geometrycurve-symmetry-leanzariski-topology
Let be an integer and let with . For let be the set of points of the complex projective line at which the binary form vanishes (a well-defined condition, since the form is homogeneous).
Then
each of the binary forms and vanishes at exactly points of .
In the proof of Lemma 4 of the note, and , with and , are the tangent cones at and of , the closure in of the curve . The statement gives the distinct tangent directions at each of these two ordinary -fold points.
Formalization Note: is the projectivization of ; membership is tested on a chosen representative vector of each point, and the counts are Nat.card, so finiteness is included.
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.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.Compactification.OnePoint.ProjectiveLine open CurveSymmetry set_option autoImplicit false open OnePoint
Formal statement
theorem CurveSymmetry.family_diagonal_tangent_direction_counts {m : ℕ} (hm : 0 < m) {α : ℂ}
(ha : α ≠ star α) :
Nat.card (binaryTangentDirections m α (star α)) = m ∧
Nat.card (binaryTangentDirections m 1 1) = m := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for Lemma 4, 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/BinaryTangentDirections.lean (C. Perassi)