proposition: Lemma sum_unique : forall (An : nat -> C) (Pr1 Pr2 : infinite_cv_radius An) (x : C), sum An Pr1 x = sum An Pr2 x.
proof: Proof. intros An Pr1 Pr2 x ; assert (T1 := sum_sums _ Pr1 x) ; assert (T2 := sum_sums _ Pr2 x) ; eapply Pser_unique ; eassumption. Qed.
imports: Rinterval Ranalysis_def Rpser_def Rpser_base_facts Rpser_cv_facts Rpser_sums Rpow_facts Rsequence_def Rsequence_facts Rseries_def Rseries_facts RFsequence_facts Cpow Cpser_def Cpser_base_facts CFsequence CFsequence_facts Csequence Csequence_def Csequence_facts Cmet Cnorm Ctacfield Cprop_base Canalysis_def Canalysis_cont Canalysis_deriv Canalysis_basic_facts