Section PS_scal.
Context {K : AbsRing} {V : NormedModule K}.
Definition PS_scal (c : K) (a : nat -> V) (n : nat) : V := scal c (a n).
End PS_scal.

Lemma CV_radius_scal (c : R) (a : nat -> R) : c <> 0 ->
(CV_radius (PS_scal c a)) = (CV_radius a).