proposition: Lemma gt_pser_expand_compat : forall Un l x, forall n, gt_pser (An_expand Un l) x n = gt_pser Un (l * x) n.
proof: Proof. intros ; unfold gt_pser, An_expand, Rseq_mult, Rseq_pow ; rewrite Rpow_mult_distr ; 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