proposition: Lemma ARmult_neg_one : forall x : AR, -1 * x = -x.
proof: Proof. intros. ring. Qed.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity Coq.QArith.Qabs CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric CoRN.model.totalorder.QposMinMax CoRN.model.totalorder.QMinMax CoRN.reals.faster.ARabs CoRN.reals.faster.ARroot CoRN.reals.faster.ARArith