(** Scalar multplication *)

(* Specifications: *)
Lemma is_LimSup_seq_scal_pos (a : R) (u : nat -> R) (l : Rbar) :
(0 < a) -> is_LimSup_seq u l ->
is_LimSup_seq (fun n => a * u n) (Rbar_mult a l).
Lemma is_LimInf_seq_scal_pos (a : R) (u : nat -> R) (l : Rbar) :
(0 < a) -> is_LimInf_seq u l ->
is_LimInf_seq (fun n => a * u n) (Rbar_mult a l).