proposition: Lemma CR_b_pos (e : Qpos) (x : CR) : 0 < Qabs (approximate x e) + proj1_sig e.
proof: Proof. apply (Qle_lt_trans _ (Qabs (approximate x e) + 0)). rewrite Qplus_0_r. apply Qabs_nonneg. apply Qplus_lt_r, Qpos_ispos. Qed.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.lattice.CRlattice CoRN.model.totalorder.QMinMax Coq.QArith.Qabs CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric MathClasses.interfaces.canonical_names