Documentation

TauCeti.Analysis.Polynomial.Puiseux.RootDifference

Differences of analytic polynomial roots #

Suppose a polynomial family splits locally into analytic linear factors and its discriminant is a power of one distinguished variable times an analytic unit. Every difference of two distinctly labelled roots is then a power of that variable times an analytic unit as well. Roots may coincide on the distinguished hyperplane; their differences have constant finite order along it.

The discriminant identity used here is Polynomial.discr_prod_X_sub_C. Each root difference occurs twice in that product. The analytic factor-order theorem extracts its power-times-unit form without assuming that its slice order is already constant.

References #

theorem TauCeti.exists_root_sub_eq_pow_mul_unit {π•œ : Type u_1} {E : Type u_2} [RCLike π•œ] [NormedAddCommGroup E] [NormedSpace π•œ E] {n : β„•} {r : Fin n β†’ E Γ— π•œ β†’ π•œ} {P : E Γ— π•œ β†’ Polynomial π•œ} {xβ‚€ : E} {yβ‚€ : π•œ} (hr : βˆ€ (i : Fin n), AnalyticAt π•œ (r i) (xβ‚€, yβ‚€)) (hP : βˆ€αΆ  (p : E Γ— π•œ) in nhds (xβ‚€, yβ‚€), P p = ∏ i : Fin n, (Polynomial.X - Polynomial.C (r i p))) {a : β„•} {u : E Γ— π•œ β†’ π•œ} (hu : AnalyticAt π•œ u (xβ‚€, yβ‚€)) (hu0 : u (xβ‚€, yβ‚€) β‰  0) (hdiscr : βˆ€αΆ  (p : E Γ— π•œ) in nhds (xβ‚€, yβ‚€), (P p).discr = (p.2 - yβ‚€) ^ a * u p) {i j : Fin n} (hij : i β‰  j) :
βˆƒ (b : β„•) (v : E Γ— π•œ β†’ π•œ), AnalyticAt π•œ v (xβ‚€, yβ‚€) ∧ v (xβ‚€, yβ‚€) β‰  0 ∧ βˆ€αΆ  (p : E Γ— π•œ) in nhds (xβ‚€, yβ‚€), r i p - r j p = (p.2 - yβ‚€) ^ b * v p

For an analytic splitting whose discriminant is a centered power times an analytic unit, every difference of roots with distinct labels is locally a centered power times an analytic unit. The roots need not be distinct on the distinguished hyperplane.