proposition: Lemma CompactAsBishopCompact : forall s, CompactSubset _ (fun z => inCompact z s).
proof: Proof. intros s. split. apply CompactCompleteSubset. apply CompactTotallyBounded. abstract ( intros a b Hab; unfold inCompact; rewrite -> Hab; reflexivity). Defined.
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