∀ {𝕜 : Type u_1} [inst : NontriviallyNormedField 𝕜] {E : Type u_2} [inst_1 : NormedAddCommGroup E]
  [inst_2 : NormedSpace 𝕜 E] {f : 𝕜 → E} {r : ENNReal} {x : 𝕜} {p : FormalMultilinearSeries 𝕜 𝕜 E},
  HasFPowerSeriesOnBall f p x r →
    (∀ (r' : NNReal), 0 < r' → ∃ p', HasFPowerSeriesOnBall f p' x ↑r') → HasFPowerSeriesOnBall f p x ⊤