fact: Definition CompactTotallyBounded_fun (s:Compact X) (k d1 d2:Qpos) (khalf : proj1_sig k <= 1#2) (pt:X) (Hpt : InFinEnumC pt (approximate s d1)) : Complete X := Build_RegularFunction (@CompactTotallyBounded_prf s k d1 d2 pt Hpt khalf).
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