fact: Definition CompactIntervalQ_raw (e:QposInf) : list Q := match e with | QposInfinity => nil | Qpos2QposInf e' => UniformPartition (Z.to_pos (Qceiling ((r - l) / (inject_Z 2 * proj1_sig e')))) end.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.metric2.Compact CoRN.metric2.LocatedSubset CoRN.reals.fast.CRArith CoRN.reals.fast.CRabs CoRN.model.metric2.Qmetric Coq.QArith.Qround Coq.QArith.Qabs CoRN.model.totalorder.QMinMax CoRN.logic.Classic