fact: Definition BishopCompactAsCompact_raw (P:Complete X->Prop) (HP:CompactSubset _ P) (e:QposInf) : (FinEnum X) := match e with |QposInfinity => nil |Qpos2QposInf e' => (let (l,_,_) := (totallyBoundedSubset HP ((1#2)*e')) in map (fun x => approximate x (Qpos2QposInf ((1#2)*e'))) l)%Qpos 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