proposition: Lemma gt_pser_scal_compat_l : forall Un (l : R) x, forall n, gt_pser (l * Un) x n = l * gt_pser Un x n.
proof: Proof. intros Un l x n ; unfold gt_pser, Rseq_mult, Rseq_constant ; ring. Qed.
imports: Reals Rpser_def Rpser_def_simpl Rinterval Rsequence_def Rsequence_base_facts Rsequence_subsequence Rsequence_rewrite_facts Rsequence_cv_facts Rsequence_facts Rsequence_bound_facts Rsequence_sums_facts Rpow_facts PeanoNat Lra MyRIneq MyNat MyNNR