fact: Definition CompleteSubset := forall (f:Complete X), (forall e, P (approximate f e)) -> {y:X | P y & msp_eq (Cunit y) f}.
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