proposition: Lemma inCompact_stable : forall x s, ~~inCompact x s -> inCompact x s.
proof: Proof. intros x s H e1 e2. intros H0. contradict H. intros H1. revert H0. apply H1. Qed.
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