fact: Definition CR_epsilon_sign_dec (e:Qpos) (x:CR) : comparison := let z := approximate x e in match Q.Qle_dec ((2#1) * proj1_sig e) z with | left p => Gt | right _ => match Q.Qle_dec z (-(2#1) * proj1_sig e)%Q with | left p => Datatypes.Lt | right _ => Eq end end.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QMinMax CoRN.model.totalorder.QposMinMax Coq.setoid_ring.Ring_theory Coq.Setoids.Setoid Coq.QArith.QArith Coq.QArith.Qabs Coq.QArith.Qround CoRN.metric2.Complete CoRN.metric2.ProductMetric CoRN.reals.fast.CRFieldOps CoRN.model.metric2.Qmetric CoRN.logic.Stability Coq.Logic.ConstructiveEpsilon CoRN.util.Qdlog MathClasses.interfaces.abstract_algebra MathClasses.interfaces.orders