proposition: Lemma ARtoCR_approx : forall (d : QposInf) (x : AR), approximate (ARtoCR x) d ≡ AQtoQ (approximate x d).
proof: Proof. intros. destruct d; reflexivity. Qed.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity Coq.Program.Program Coq.setoid_ring.Ring CoRN.util.Qdlog CoRN.model.totalorder.QposMinMax CoRN.metric2.Complete CoRN.metric2.Prelength CoRN.model.metric2.Qmetric CoRN.model.metric2.CRmetric CoRN.metric2.MetricMorphisms CoRN.reals.faster.ApproximateRationals