proposition: Lemma compress_raw_prf : forall x, is_RegularFunction (@ball Q_as_MetricSpace) (compress_raw x).
proof: Proof. intros x e1 e2. rewrite <- ball_Cunit. eapply ball_triangle;[|apply compress_raw_prop]. apply ball_sym. apply compress_raw_prop. 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