(** Comparison *)

(* Specifications: *)
Lemma ex_series_le {K : AbsRing} {V : CompleteNormedModule K}
(a : nat -> V) (b : nat -> R) :
(forall n : nat, norm (a n) <= b n) ->
ex_series b -> ex_series a.
Lemma Series_le (a b : nat -> R) :
(forall n : nat, 0 <= a n <= b n) ->
ex_series b -> Series a <= Series b.