proposition: Lemma AQabs_uc_prf : is_UniformlyContinuousFunction (AQabs : AQ_as_MetricSpace -> AQ_as_MetricSpace) Qpos2QposInf.
proof: Proof. intros d a b Hab. simpl in Hab. unfold Qball in Hab. rewrite <- AbsSmall_Qabs in Hab. simpl. unfold Qball. rewrite <- AbsSmall_Qabs. exact (Qle_trans _ _ _ (AQabs_triangle_reverse _ _) Hab). Qed.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity Coq.QArith.Qabs CoRN.model.metric2.Qmetric CoRN.model.totalorder.QposMinMax CoRN.model.totalorder.QMinMax CoRN.reals.fast.CRabs CoRN.reals.faster.ARArith