proposition: Lemma Cmap_strong_prf : forall (X Y:MetricSpace) (plX:PrelengthSpace X), is_UniformlyContinuousFunction (@Cmap X Y plX) Qpos2QposInf.
proof: Proof. intros X Y plX e a b Hab. apply (ball_wd _ eq_refl _ _ (Cmap_correct _ _) _ _ (Cmap_correct _ _)). apply Cmap_strong_slow_prf. auto. Qed.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.metric2.Complete CoRN.model.totalorder.QMinMax CoRN.model.totalorder.QposMinMax CoRN.stdlib_omissions.List CoRN.stdlib_omissions.Q