proposition: Lemma Qtranslate_uc_prf (a:Q) : is_UniformlyContinuousFunction (fun b:Q => (a+b):Q) Qpos2QposInf.
proof: Proof. intros e b0 b1 H. simpl in *. unfold Qball in *. unfold QAbsSmall. setoid_replace (a + b0 - (a + b1)) with (b0 - b1)%Q. apply H. ring_simplify. reflexivity. Qed.
imports: QArith Qabs CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.metric2.CRmetric CoRN.model.totalorder.QMinMax CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric CoRN.stdlib_omissions.Pair MathClasses.interfaces.canonical_names