proposition: Lemma Rseq_equiv_refl : forall Un, Un ~ Un.
proof: Proof. intros Un eps Heps. exists 0%nat; intros n Hn. unfold Rseq_minus; unfold Rminus. rewrite Rplus_opp_r; rewrite Rabs_R0. replace 0%R with (0 * 0)%R by field. apply Rmult_le_compat; auto with real. apply Rabs_pos. Qed.
imports: PeanoNat Reals Setoid Morphisms Rsequence_def Rsequence_base_facts Rsequence_cv_facts Lra