proposition: Lemma ARtoCR_preserves_sin_poly (x : msp_car AR) : 'ucFun ARsin_poly x = ucFun sin_poly ('x).
proof: Proof. change ('ucFun ARcompress (ucFun (Cmap AQPrelengthSpace AQsin_poly_uc) x) = ucFun compress (ucFun (Cmap QPrelengthSpace sin_poly_uc) ('x))). rewrite ARcompress_correct, compress_correct. now apply preserves_unary_fun. Qed.
imports: Coq.QArith.Qround Coq.QArith.Qpower MathClasses.interfaces.abstract_algebra MathClasses.theory.nat_pow MathClasses.theory.int_pow CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.MetricMorphisms CoRN.metric2.UniformContinuity CoRN.model.totalorder.QMinMax CoRN.util.Qdlog CoRN.stdlib_omissions.Q CoRN.reals.fast.CRsin CoRN.reals.fast.CRstreams CoRN.reals.fast.CRAlternatingSum CoRN.reals.fast.Compress CoRN.reals.faster.ARAlternatingSum CoRN.reals.faster.ARArith