proposition: Lemma scale_Qmult : forall a b:Q, (scale a ('b)=='(a*b)%Q)%CR.
proof: Proof. intros a b. unfold scale. change (msp_eq (Cmap_fun QPrelengthSpace (Qscale_uc a) (' b)%CR) (' (a * b)%Q)%CR). rewrite -> Cmap_fun_correct. apply MonadLaw3. Qed.
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