proposition: Lemma compress_uc : is_UniformlyContinuousFunction compress_fun Qpos2QposInf.
proof: Proof. intros e x y H. do 2 rewrite -> compress_fun_correct. assumption. Qed.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.metric2.CRmetric CoRN.model.metric2.Qmetric Coq.ZArith.Zdiv