proposition: Lemma CRle_refl : forall x, (x <= x)%CR.
proof: Proof. intros x e. simpl. unfold Cap_raw. simpl. rewrite -> Qle_minus_iff. ring_simplify. apply Qlt_le_weak. destruct e; exact q. Qed.
imports: QArith Qabs CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.metric2.CRmetric CoRN.model.totalorder.QMinMax CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric CoRN.stdlib_omissions.Pair MathClasses.interfaces.canonical_names