proposition: Lemma gt_pser_mult_compat_l : forall Un Vn x, gt_pser (Un * Vn) x == Un * gt_pser Vn x.
proof: Proof. intros Un Vn x n ; unfold gt_pser, Rseq_mult ; 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