proposition: Lemma distrib_after_undistrib_Complete xy : msp_eq (distrib_Complete (undistrib_Complete xy)) xy.
proof: Proof. intros. unfold distrib_Complete, undistrib_Complete. simpl. split; apply regFunEq_equiv, regFunEq_e; simpl; intros; apply ball_refl. apply (Qpos_nonneg (e+e)). apply (Qpos_nonneg (e+e)). Qed.
imports: CoRN.model.totalorder.QposMinMax CoRN.metric2.Metric CoRN.metric2.Classification CoRN.metric2.UniformContinuity CoRN.metric2.Prelength CoRN.metric2.Complete CoRN.metric2.LocatedSubset