Documentation

TauCeti.Geometry.Manifold.Complex.StructureSheaf.Weierstrass

Weierstrass preparation and division in holomorphic stalks #

Let E be a complex normed space, xβ‚€ : E, and wβ‚€ : β„‚. Write π’ͺ_{E, xβ‚€} and π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} for the stalks of holomorphicStructureSheaf at xβ‚€ and (xβ‚€, wβ‚€). This file connects the local analytic Weierstrass preparation and division theorems on E Γ— β„‚ (AnalyticAt.exists_weierstrassPreparation, AnalyticAt.exists_weierstrassDivision) with Mathlib's formal power series Weierstrass API (PowerSeries.IsWeierstrassFactorization, PowerSeries.IsWeierstrassDivision) and deduces uniqueness, polynomial divisibility reflection, polynomial quotient isomorphisms, and flatness and finiteness of local hypersurface quotients over the base stalk. The uniqueness statements are also restated for functions rather than germs.

Main definitions #

Main results #

Attribution #

The alignment with formal power series and polynomial quotient comparison builds on Jz Pan's formalization of formal Weierstrass preparation and division (Mathlib.RingTheory.PowerSeries.WeierstrassPreparation), in particular its IsHausdorff uniqueness theorems and Polynomial.IsDistinguishedAt.algEquivQuotient.

References #

Vertical polynomial evaluation #

Evaluates a polynomial over (holomorphicStructureSheaf π“˜(β„‚, E) E).presheaf.stalk xβ‚€ as a holomorphic germ on E Γ— β„‚ at (xβ‚€, wβ‚€), pulling coefficients back along Prod.fst and sending X to the centered vertical coordinate germ p ↦ p.2 - wβ‚€.

Instances For
    @[simp]
    theorem TauCeti.holomorphicStructureSheaf.evalVertical_X {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] (xβ‚€ : E) (wβ‚€ : β„‚) :
    (evalVertical xβ‚€ wβ‚€) Polynomial.X = germOfContMDiff (fun (p : E Γ— β„‚) => p.2 - wβ‚€) β‹― (xβ‚€, wβ‚€)
    theorem TauCeti.holomorphicStructureSheaf.evalVertical_monomial {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] (xβ‚€ : E) (wβ‚€ : β„‚) (n : β„•) (a : ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)) :
    (evalVertical xβ‚€ wβ‚€) ((Polynomial.monomial n) a) = (stalkPrecomp (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚) Prod.fst β‹― (xβ‚€, wβ‚€)) a * germOfContMDiff (fun (p : E Γ— β„‚) => p.2 - wβ‚€) β‹― (xβ‚€, wβ‚€) ^ n
    @[simp]

    Evaluating evalVertical xβ‚€ wβ‚€ P at (xβ‚€, wβ‚€) evaluates the constant term of P at xβ‚€.

    theorem TauCeti.holomorphicStructureSheaf.toFilterGerm_evalVertical_sum_monomial {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {d : β„•} {c : Fin d β†’ ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)} {C : Fin d β†’ E β†’ β„‚} (hC : βˆ€ (i : Fin d), (toFilterGerm (modelWithCornersSelf β„‚ E) E xβ‚€ (nhds xβ‚€) β‹―) (c i) = ↑(C i)) :
    (toFilterGerm (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚) (xβ‚€, wβ‚€) (nhds (xβ‚€, wβ‚€)) β‹―) ((evalVertical xβ‚€ wβ‚€) (βˆ‘ i : Fin d, (Polynomial.monomial ↑i) (c i))) = ↑fun (p : E Γ— β„‚) => βˆ‘ i : Fin d, C i p.1 * (p.2 - wβ‚€) ^ ↑i

    If C i represents c i near xβ‚€, then (x, w) ↦ βˆ‘ i, C i x * (w - wβ‚€) ^ i represents evalVertical xβ‚€ wβ‚€ (βˆ‘ i, monomial i (c i)) near (xβ‚€, wβ‚€).

    theorem TauCeti.holomorphicStructureSheaf.toFilterGerm_evalVertical_monicOfCoeff {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {d : β„•} {c : Fin d β†’ ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)} {C : Fin d β†’ E β†’ β„‚} (hC : βˆ€ (i : Fin d), (toFilterGerm (modelWithCornersSelf β„‚ E) E xβ‚€ (nhds xβ‚€) β‹―) (c i) = ↑(C i)) :
    (toFilterGerm (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚) (xβ‚€, wβ‚€) (nhds (xβ‚€, wβ‚€)) β‹―) ((evalVertical xβ‚€ wβ‚€) (Polynomial.monicOfCoeff c)) = ↑fun (p : E Γ— β„‚) => Polynomial.eval (p.2 - wβ‚€) (Polynomial.monicOfCoeff fun (i : Fin d) => C i p.1)

    If C i represents c i near xβ‚€, then (x, w) ↦ (monicOfCoeff (C Β· x)).eval (w - wβ‚€) represents evalVertical xβ‚€ wβ‚€ (monicOfCoeff c) near (xβ‚€, wβ‚€).

    A monic polynomial monicOfCoeff c over π’ͺ_{E, xβ‚€} is distinguished at the maximal ideal if and only if all lower coefficient germs c i vanish at xβ‚€.

    Vertical Taylor expansion #

    Expands a holomorphic germ at (xβ‚€, wβ‚€) on E Γ— β„‚ as a formal power series in w - wβ‚€ over the base stalk (holomorphicStructureSheaf π“˜(β„‚, E) E).presheaf.stalk xβ‚€, sending g to βˆ‘ n, ((n!)⁻¹ Β· βˆ‚_w^n g(Β·, wβ‚€)) X ^ n.

    Instances For
      theorem TauCeti.holomorphicStructureSheaf.toFilterGerm_coeff_verticalPowerSeries {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {g : ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚)).presheaf.stalk (xβ‚€, wβ‚€))} {G : E Γ— β„‚ β†’ β„‚} (hgG : (toFilterGerm (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚) (xβ‚€, wβ‚€) (nhds (xβ‚€, wβ‚€)) β‹―) g = ↑G) (n : β„•) :
      (toFilterGerm (modelWithCornersSelf β„‚ E) E xβ‚€ (nhds xβ‚€) β‹―) ((PowerSeries.coeff n) ((verticalPowerSeries xβ‚€ wβ‚€) g)) = ↑fun (x : E) => (↑n.factorial)⁻¹ * iteratedDeriv n (fun (w : β„‚) => G (x, w)) wβ‚€

      If G represents g near (xβ‚€, wβ‚€), then x ↦ (n!)⁻¹ * iteratedDeriv n (G (x, Β·)) wβ‚€ represents the n-th coefficient of verticalPowerSeries xβ‚€ wβ‚€ g near xβ‚€.

      @[simp]

      Evaluating the constant coefficient of verticalPowerSeries xβ‚€ wβ‚€ g at xβ‚€ recovers the value of g at (xβ‚€, wβ‚€).

      @[simp]

      Pulling a base germ back along Prod.fst sends it to a constant vertical power series.

      @[simp]

      The vertical power series of evalVertical xβ‚€ wβ‚€ P is P viewed as a power series.

      Vertical Taylor expansion at (xβ‚€, wβ‚€) is injective (without assuming finite-dimensionality of E).

      Polynomial evaluation evalVertical xβ‚€ wβ‚€ is injective.

      @[simp]

      A holomorphic germ is a unit if and only if its vertical power series is a unit.

      theorem TauCeti.holomorphicStructureSheaf.order_map_residue_verticalPowerSeries {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {g : ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚)).presheaf.stalk (xβ‚€, wβ‚€))} {G : E Γ— β„‚ β†’ β„‚} (hgG : (toFilterGerm (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚) (xβ‚€, wβ‚€) (nhds (xβ‚€, wβ‚€)) β‹―) g = ↑G) :
      ((PowerSeries.map (IsLocalRing.residue ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€))) ((verticalPowerSeries xβ‚€ wβ‚€) g)).order = analyticOrderAt (fun (w : β„‚) => G (xβ‚€, w)) wβ‚€

      The formal order of the residue-field reduction of verticalPowerSeries xβ‚€ wβ‚€ g equals the analytic order of the vertical slice w ↦ G (xβ‚€, w) at wβ‚€ for any representative G of g.

      The residue-field reduction of verticalPowerSeries xβ‚€ wβ‚€ g is nonzero if and only if the vertical slice w ↦ G (xβ‚€, w) has finite analytic order at wβ‚€.

      Alignment with PowerSeries and uniqueness #

      A holomorphic germ factorization g = evalVertical xβ‚€ wβ‚€ P * u is a Weierstrass factorization in the formal power series sense if and only if P is distinguished at the maximal ideal of π’ͺ_{E, xβ‚€} and u is a unit of π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)}.

      A holomorphic germ division g = f * q + evalVertical xβ‚€ wβ‚€ r is a Weierstrass division in the formal power series sense if and only if r has degree strictly less than the residue-field order of verticalPowerSeries xβ‚€ wβ‚€ f.

      Uniqueness of Weierstrass preparation in holomorphic stalks (without assuming finite-dimensionality of E).

      theorem TauCeti.holomorphicStructureSheaf.weierstrassDivision_unique {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {f g q q' : ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚)).presheaf.stalk (xβ‚€, wβ‚€))} {r r' : Polynomial ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)} (hf : (PowerSeries.map (IsLocalRing.residue ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€))) ((verticalPowerSeries xβ‚€ wβ‚€) f) β‰  0) (hr : r.degree < ↑((PowerSeries.map (IsLocalRing.residue ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€))) ((verticalPowerSeries xβ‚€ wβ‚€) f)).order.toNat) (hg : g = f * q + (evalVertical xβ‚€ wβ‚€) r) (hr' : r'.degree < ↑((PowerSeries.map (IsLocalRing.residue ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€))) ((verticalPowerSeries xβ‚€ wβ‚€) f)).order.toNat) (hg' : g = f * q' + (evalVertical xβ‚€ wβ‚€) r') :
      q = q' ∧ r = r'

      Uniqueness of Weierstrass division in holomorphic stalks (without assuming finite-dimensionality of E).

      For a distinguished polynomial P over π’ͺ_{E, xβ‚€}, the residue-field reduction of verticalPowerSeries xβ‚€ wβ‚€ (evalVertical xβ‚€ wβ‚€ P) has formal order P.natDegree.

      For a distinguished polynomial P over π’ͺ_{E, xβ‚€}, the residue-field reduction of verticalPowerSeries xβ‚€ wβ‚€ (evalVertical xβ‚€ wβ‚€ P) is nonzero.

      theorem TauCeti.holomorphicStructureSheaf.weierstrassDivision_unique_of_isDistinguishedAt {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {P : Polynomial ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)} (hP : P.IsDistinguishedAt (IsLocalRing.maximalIdeal ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€))) {g q q' : ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚)).presheaf.stalk (xβ‚€, wβ‚€))} {r r' : Polynomial ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)} (hr : r.degree < ↑P.natDegree) (hg : g = (evalVertical xβ‚€ wβ‚€) P * q + (evalVertical xβ‚€ wβ‚€) r) (hr' : r'.degree < ↑P.natDegree) (hg' : g = (evalVertical xβ‚€ wβ‚€) P * q' + (evalVertical xβ‚€ wβ‚€) r') :
      q = q' ∧ r = r'

      Uniqueness of Weierstrass division by evalVertical xβ‚€ wβ‚€ P for a distinguished polynomial P (without assuming finite-dimensionality of E).

      A distinguished polynomial P over π’ͺ_{E, xβ‚€} divides a polynomial Q in (π’ͺ_{E, xβ‚€})[X] if and only if evalVertical xβ‚€ wβ‚€ P divides evalVertical xβ‚€ wβ‚€ Q in π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} (without assuming finite-dimensionality of E).

      Existence, uniqueness, quotients, and flatness in finite dimension #

      theorem TauCeti.holomorphicStructureSheaf.existsUnique_weierstrassPreparation_of_analyticOrderAt {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] [FiniteDimensional β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {d : β„•} {f : ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚)).presheaf.stalk (xβ‚€, wβ‚€))} {F : E Γ— β„‚ β†’ β„‚} (hfF : (toFilterGerm (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚) (xβ‚€, wβ‚€) (nhds (xβ‚€, wβ‚€)) β‹―) f = ↑F) (hd : analyticOrderAt (fun (w : β„‚) => F (xβ‚€, w)) wβ‚€ = ↑d) :
      βˆƒ! cu : (Fin d β†’ ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ E) E).presheaf.stalk xβ‚€)) Γ— ↑((holomorphicStructureSheaf (modelWithCornersSelf β„‚ (E Γ— β„‚)) (E Γ— β„‚)).presheaf.stalk (xβ‚€, wβ‚€)), (βˆ€ (i : Fin d), (eval (modelWithCornersSelf β„‚ E) E xβ‚€) (cu.1 i) = 0) ∧ IsUnit cu.2 ∧ f = (evalVertical xβ‚€ wβ‚€) (Polynomial.monicOfCoeff cu.1) * cu.2

      Weierstrass preparation in holomorphic stalks (explicit degree form). When a representative F of f has vertical slice w ↦ F (xβ‚€, w) of analytic order d at wβ‚€, there exist unique coefficient germs c : Fin d β†’ π’ͺ_{E, xβ‚€} vanishing at xβ‚€ and unit germ u ∈ π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} such that f = evalVertical xβ‚€ wβ‚€ (monicOfCoeff c) * u.

      Weierstrass preparation theorem in holomorphic stalks. Every holomorphic germ f at (xβ‚€, wβ‚€) whose vertical power series has nonzero image in (π’ͺ_{E, xβ‚€} β§Έ π”ͺ_{xβ‚€})⟦X⟧ admits a unique factorization f = evalVertical xβ‚€ wβ‚€ P * u into a distinguished polynomial P over π’ͺ_{E, xβ‚€} and a unit germ u at (xβ‚€, wβ‚€).

      Weierstrass division by a distinguished polynomial in holomorphic stalks. Given a distinguished polynomial P over π’ͺ_{E, xβ‚€} and any germ g at (xβ‚€, wβ‚€), there exist unique q ∈ π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} and r ∈ (π’ͺ_{E, xβ‚€})[X] of degree < P.natDegree such that g = evalVertical xβ‚€ wβ‚€ P * q + evalVertical xβ‚€ wβ‚€ r.

      Weierstrass division theorem in holomorphic stalks. Given germs f and g at (xβ‚€, wβ‚€) such that the vertical power series of f has nonzero image in (π’ͺ_{E, xβ‚€} β§Έ π”ͺ_{xβ‚€})⟦X⟧, there exist unique q ∈ π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} and r ∈ (π’ͺ_{E, xβ‚€})[X] forming a Weierstrass division of g by f.

      Polynomial quotient isomorphism, flatness, and finiteness #

      For a distinguished polynomial P over π’ͺ_{E, xβ‚€}, evaluating polynomials vertically induces a canonical ring isomorphism (π’ͺ_{E, xβ‚€})[X] β§Έ (P) ≃+* π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} β§Έ (evalVertical P).

      Instances For

        If g = evalVertical xβ‚€ wβ‚€ P * q + evalVertical xβ‚€ wβ‚€ r, then the inverse of quotientEquivOfIsDistinguishedAt maps the residue class of g to the residue class of r.

        For a Weierstrass factorization f = evalVertical xβ‚€ wβ‚€ P * u, evaluating polynomials vertically induces a canonical ring isomorphism (π’ͺ_{E, xβ‚€})[X] β§Έ (P) ≃+* π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} β§Έ (f).

        Instances For

          If f = evalVertical xβ‚€ wβ‚€ P * u is a Weierstrass factorization and g = f * q + evalVertical xβ‚€ wβ‚€ r, then the inverse of weierstrassQuotientEquiv maps the residue class of g to the residue class of r.

          Composing weierstrassQuotientEquiv with the canonical π’ͺ_{E, xβ‚€}-algebra map into (π’ͺ_{E, xβ‚€})[X] β§Έ (P) recovers pullback along Prod.fst followed by the quotient map modulo f.

          Pullback along Prod.fst makes the local quotient π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} β§Έ (evalVertical P) flat over the base stalk π’ͺ_{E, xβ‚€} for every distinguished polynomial P.

          Pullback along Prod.fst makes the local quotient π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} β§Έ (evalVertical P) finite over the base stalk π’ͺ_{E, xβ‚€} for every distinguished polynomial P.

          Local hypersurface flatness via Weierstrass preparation. If f ∈ π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} has vertical power series with nonzero residue-field reduction (equivalently, its vertical slice at xβ‚€ does not vanish identically near wβ‚€), then π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} β§Έ (f) is flat over the base stalk π’ͺ_{E, xβ‚€} via pullback along Prod.fst.

          Local hypersurface finiteness via Weierstrass preparation. If f ∈ π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} has vertical power series with nonzero residue-field reduction, then π’ͺ_{E Γ— β„‚, (xβ‚€, wβ‚€)} β§Έ (f) is a finite algebra over the base stalk π’ͺ_{E, xβ‚€} via pullback along Prod.fst.

          theorem TauCeti.eventuallyEq_of_weierstrassPreparation {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {d : β„•} {c c' : Fin d β†’ E β†’ β„‚} {u u' : E Γ— β„‚ β†’ β„‚} (hc : βˆ€ (i : Fin d), AnalyticAt β„‚ (c i) xβ‚€) (hc0 : βˆ€ (i : Fin d), c i xβ‚€ = 0) (hu : AnalyticAt β„‚ u (xβ‚€, wβ‚€)) (hu0 : u (xβ‚€, wβ‚€) β‰  0) (hc' : βˆ€ (i : Fin d), AnalyticAt β„‚ (c' i) xβ‚€) (hc'0 : βˆ€ (i : Fin d), c' i xβ‚€ = 0) (hu' : AnalyticAt β„‚ u' (xβ‚€, wβ‚€)) (hu'0 : u' (xβ‚€, wβ‚€) β‰  0) (h : (fun (p : E Γ— β„‚) => Polynomial.eval (p.2 - wβ‚€) (Polynomial.monicOfCoeff fun (i : Fin d) => c i p.1) * u p) =αΆ [nhds (xβ‚€, wβ‚€)] fun (p : E Γ— β„‚) => Polynomial.eval (p.2 - wβ‚€) (Polynomial.monicOfCoeff fun (i : Fin d) => c' i p.1) * u' p) :
          (βˆ€ (i : Fin d), c i =αΆ [nhds xβ‚€] c' i) ∧ u =αΆ [nhds (xβ‚€, wβ‚€)] u'

          Uniqueness of the local Weierstrass preparation of a holomorphic function. Two factorizations P_c (w - wβ‚€) * u = P_{c'} (w - wβ‚€) * u' near (xβ‚€, wβ‚€), where P_c is the monic polynomial TauCeti.Polynomial.monicOfCoeff with lower coefficients c i x vanishing at xβ‚€ and u, u' do not vanish at (xβ‚€, wβ‚€), have the same coefficient germs at xβ‚€ and the same unit germ at (xβ‚€, wβ‚€).

          theorem TauCeti.eventuallyEq_of_weierstrassDivision {E : Type} [NormedAddCommGroup E] [NormedSpace β„‚ E] {xβ‚€ : E} {wβ‚€ : β„‚} {d : β„•} {c : Fin d β†’ E β†’ β„‚} {q q' : E Γ— β„‚ β†’ β„‚} {r r' : Fin d β†’ E β†’ β„‚} (hc : βˆ€ (i : Fin d), AnalyticAt β„‚ (c i) xβ‚€) (hc0 : βˆ€ (i : Fin d), c i xβ‚€ = 0) (hq : AnalyticAt β„‚ q (xβ‚€, wβ‚€)) (hr : βˆ€ (i : Fin d), AnalyticAt β„‚ (r i) xβ‚€) (hq' : AnalyticAt β„‚ q' (xβ‚€, wβ‚€)) (hr' : βˆ€ (i : Fin d), AnalyticAt β„‚ (r' i) xβ‚€) (h : (fun (p : E Γ— β„‚) => Polynomial.eval (p.2 - wβ‚€) (Polynomial.monicOfCoeff fun (i : Fin d) => c i p.1) * q p + βˆ‘ i : Fin d, r i p.1 * (p.2 - wβ‚€) ^ ↑i) =αΆ [nhds (xβ‚€, wβ‚€)] fun (p : E Γ— β„‚) => Polynomial.eval (p.2 - wβ‚€) (Polynomial.monicOfCoeff fun (i : Fin d) => c i p.1) * q' p + βˆ‘ i : Fin d, r' i p.1 * (p.2 - wβ‚€) ^ ↑i) :
          q =αΆ [nhds (xβ‚€, wβ‚€)] q' ∧ βˆ€ (i : Fin d), r i =αΆ [nhds xβ‚€] r' i

          Uniqueness of the local Weierstrass division of a holomorphic function. Two divisions P_c (w - wβ‚€) * q + βˆ‘ i, r i x * (w - wβ‚€) ^ i = P_c (w - wβ‚€) * q' + βˆ‘ i, r' i x * (w - wβ‚€) ^ i near (xβ‚€, wβ‚€) by the Weierstrass polynomial P_c = TauCeti.Polynomial.monicOfCoeff c, with coefficients c i x vanishing at xβ‚€, have the same quotient germ at (xβ‚€, wβ‚€) and the same remainder coefficient germs at xβ‚€.