Documentation

TauCeti.Analysis.Analytic.FactorOrder

Orders of factors in analytic families #

The order of a slice of a jointly analytic function cannot increase near a parameter where it is finite. Consequently, if a finite product has constant finite slice order, each factor has constant slice order. Over ℝ or β„‚, each factor is therefore a power of the distinguished variable times an analytic unit, locally at the base point.

Applied to the product of squared differences of analytic polynomial roots, this gives the power-times-unit form of each root difference from the corresponding form of the discriminant.

References #

theorem TauCeti.eventually_analyticOrderAt_curry_right_le {π•œ : Type u_1} {E : Type u_2} {F : Type u_3} [NontriviallyNormedField π•œ] [CharZero π•œ] [NormedAddCommGroup E] [NormedSpace π•œ E] [NormedAddCommGroup F] [NormedSpace π•œ F] [CompleteSpace F] {G : E Γ— π•œ β†’ F} {xβ‚€ : E} {yβ‚€ : π•œ} (hG : AnalyticAt π•œ G (xβ‚€, yβ‚€)) {m : β„•} (hm : analyticOrderAt (fun (y : π•œ) => G (xβ‚€, y)) yβ‚€ = ↑m) :
βˆ€αΆ  (x : E) in nhds xβ‚€, analyticOrderAt (fun (y : π•œ) => G (x, y)) yβ‚€ ≀ ↑m

Near a parameter where a jointly analytic function has finite slice order m, its slice orders are at most m.

theorem TauCeti.eventually_analyticOrderAt_factor_eq {π•œ : Type u_1} {E : Type u_2} {ΞΉ : Type u_3} [NontriviallyNormedField π•œ] [CharZero π•œ] [CompleteSpace π•œ] [NormedAddCommGroup E] [NormedSpace π•œ E] {s : Finset ΞΉ} {G : ΞΉ β†’ E Γ— π•œ β†’ π•œ} {xβ‚€ : E} {yβ‚€ : π•œ} (hG : βˆ€ i ∈ s, AnalyticAt π•œ (G i) (xβ‚€, yβ‚€)) {m : β„•} (hm : βˆ€αΆ  (x : E) in nhds xβ‚€, analyticOrderAt (fun (y : π•œ) => ∏ i ∈ s, G i (x, y)) yβ‚€ = ↑m) :
βˆ€αΆ  (x : E) in nhds xβ‚€, βˆ€ i ∈ s, analyticOrderAt (fun (y : π•œ) => G i (x, y)) yβ‚€ = analyticOrderAt (fun (y : π•œ) => G i (xβ‚€, y)) yβ‚€

If a finite product of jointly analytic functions has constant finite slice order, then every factor has constant slice order near the parameter.

theorem TauCeti.exists_factor_eq_pow_mul_unit {π•œ : Type u_1} {E : Type u_2} {ΞΉ : Type u_3} [RCLike π•œ] [NormedAddCommGroup E] [NormedSpace π•œ E] {s : Finset ΞΉ} {G : ΞΉ β†’ E Γ— π•œ β†’ π•œ} {xβ‚€ : E} {yβ‚€ : π•œ} (hG : βˆ€ i ∈ s, AnalyticAt π•œ (G i) (xβ‚€, yβ‚€)) {m : β„•} (hm : βˆ€αΆ  (x : E) in nhds xβ‚€, analyticOrderAt (fun (y : π•œ) => ∏ i ∈ s, G i (x, y)) yβ‚€ = ↑m) (i : ΞΉ) :
i ∈ s β†’ βˆƒ (n : β„•) (u : E Γ— π•œ β†’ π•œ), AnalyticAt π•œ u (xβ‚€, yβ‚€) ∧ u (xβ‚€, yβ‚€) β‰  0 ∧ βˆ€αΆ  (p : E Γ— π•œ) in nhds (xβ‚€, yβ‚€), G i p = (p.2 - yβ‚€) ^ n * u p

Every factor of a jointly analytic product of constant finite slice order is locally a centered power of the distinguished variable times an analytic unit.