∀ {A : Type u_1} [inst : CommRing A] {g : PowerSeries A} {I : Ideal A},
  g.IsWeierstrassDivisorAt I →
    ∀ [IsHausdorff I A] {q q' : PowerSeries A} {r r' : Polynomial A},
      r.degree < ↑((PowerSeries.map (Ideal.Quotient.mk I)) g).order.toNat →
        r'.degree < ↑((PowerSeries.map (Ideal.Quotient.mk I)) g).order.toNat →
          g * q + ↑r = g * q' + ↑r' → q = q' ∧ r = r'