fact: Definition compact (X:R -> Prop) : Prop := forall f:family, covering_open_set X f -> exists D : R -> Prop, covering_finite X (subfamily f D).
imports: Rbase Rfunctions Ranalysis1 RList List Classical_Prop Classical_Pred_Type