proposition: Lemma undistrib_after_distrib_Complete xy : msp_eq (undistrib_Complete (distrib_Complete xy)) xy.
proof: Proof. intros. unfold undistrib_Complete. apply regFunEq_equiv. apply (@regFunEq_e (ProductMS X Y)). split; simpl; 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