proposition: Lemma Rseq_cv_shift_compat_reciprocal : forall Un l, Rseq_cv Un l -> Rseq_cv (Rseq_shift Un) l.
proof: Proof. intros Un l H eps epspos. destruct (H eps epspos) as [N Hu]. exists N; intros n nSN. unfold Rseq_shift. apply Hu. intuition. Qed.
imports: Lia Reals Rsequence_def Rsequence_base_facts Rsequence_cv_facts Rsequence_rel_facts Rsequence_usual_facts Lra