exact ex_series_scal.
Qed.
End Properties3.

Lemma is_series_mult_pos (a b : nat -> R) (la lb : R) :
is_series  a la -> is_series  b lb ->
(forall n, 0 <= a n) -> (forall n, 0 <= b n)
-> is_series  (fun n => sum_f_R0 (fun k => a k * b (n - k)%nat) n) (la * lb).