Section PS_minus.
Context {K : AbsRing} {V : NormedModule K}.
Definition PS_minus (a b : nat -> V) (n : nat) : V := plus (a n) (opp (b n)).
End PS_minus.
(** ** Abel's theorem for power series *)
(** * Analysis *)
(** ** Continuity *)
(** ** Differentiability *)
Definition PS_derive (a : nat -> R) (n : nat) :=
INR (S n) * a (S n).
Definition PS_derive_n (n : nat) (a : nat -> R) :=
(fun k => (INR (fact (k + n)%nat) / INR (fact k)) * a (k + n)%nat).
(** Coefficients *)

Lemma PSeries_ext_recip (a b : nat -> R) (n : nat) :
Rbar_lt (Finite 0) (CV_radius a) -> Rbar_lt (Finite 0) (CV_radius b)
-> locally 0 (fun x => PSeries a x = PSeries b x)
-> a n = b n.