proposition: Lemma CRpos_wd : forall x y, (x==y)%CR -> (CRpos x) -> (CRpos y).
proof: Proof. intros x y Hxy [e H]. exists e. abstract ( rewrite <- Hxy; assumption ). Defined.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.lattice.CRlattice CoRN.model.totalorder.QMinMax Coq.QArith.Qabs CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric MathClasses.interfaces.canonical_names