proposition: Lemma AbsSmall_imp_AbsIR : forall x y : IR, AbsSmall y x -> AbsIR x [<=] y.
proof: Proof. intros. unfold AbsIR in |- *; simpl in |- *; unfold ABSIR in |- *. inversion_clear H. apply Max_leEq. assumption. apply inv_cancel_leEq. astepr x; auto. Qed.
imports: CoRN.reals.Q_in_CReals Coq.QArith.Qabs CoRN.reals.CauchySeq