(** This is a weakened form of CRealLt_aboveSig which a special shape of eps needed below *)

Lemma CRealLt_aboveSig' : forall (x y : CReal) (n : Z),
(2 * 2^n < seq y n - seq x n)%Q
-> let (k, _) := QarchimedeanExp2_Z (/(seq y n - seq x n - (2 * 2 ^ n)%Q))
in forall p:Z,
(p <= n)%Z
-> (2 * 2^(Z.min (-k-1) n) < seq y p - seq x p)%Q.