proposition: Lemma AbsIRz_isz : AbsIR [0] [=] [0].
proof: Proof. intros. unfold AbsIR in |- *. simpl in |- *. unfold ABSIR in |- *. Step_final (Max [0] [0]). Qed.
imports: CoRN.reals.Q_in_CReals Coq.QArith.Qabs CoRN.reals.CauchySeq