(** For arbitrary n:Z, we need to relaxe the bound *)

(* Specifications: *)
Lemma DRealAbstrFalse' : forall (x : CReal) (q : Q) (n : Z),
proj1_sig (DRealAbstr x) q = false
-> (seq x n <= q + 2*2^n)%Q.
Lemma DRealAbstrFalse'' : forall (x : CReal) (q : Q) (n : Z),
proj1_sig (DRealAbstr x) q = false
-> (seq x n <= q + 2^n + 1)%Q.
Lemma DRealQuot2 : forall x:CReal, CRealEq (DRealRepr (DRealAbstr x)) x.