proposition: Lemma gt_abs_pser_Rabs_compat : forall An r, gt_abs_pser An (Rabs r) == gt_abs_pser An r.
proof: Proof. intros An r n ; unfold gt_abs_pser, gt_pser, Rseq_abs, Rseq_mult ; rewrite Rabs_mult, RPow_abs, Rabs_Rabsolu, <- Rabs_mult ; reflexivity. Qed.
imports: Lia MyRIneq Rpow_facts Rsequence_def Rsequence_rewrite_facts Rpser_def