fact: Definition CompactTotallyBounded_raw (s:Compact X) (k d1 d2:Qpos) (pt:X) Hpt (e:QposInf) : X := match e with | QposInfinity => pt | Qpos2QposInf e' => @CompactImproveApproximation s k d1 d2 pt Hpt (Z.to_nat (CompactTotallyBoundedIndex e' d1 d2)) end.
imports: CoRN.model.totalorder.QposMinMax CoRN.metric2.Limit CoRN.metric2.FinEnum Coq.ZArith.Zpow_facts CoRN.metric2.Complete CoRN.logic.Classic Coq.QArith.Qpower Coq.QArith.Qround