proposition: Lemma translate_Qplus : forall a b:Q, (translate a ('b)=='(a+b)%Q)%CR.
proof: Proof. intros a b. unfold translate, Cmap. setoid_rewrite -> Cmap_fun_correct. apply MonadLaw3. 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