Definition CReal_abs (x : CReal) : CReal :=
{|
seq := CReal_abs_seq x;
scale := CReal_abs_scale x;
cauchy := CReal_abs_cauchy x;
bound := CReal_abs_bound x
|}.

Lemma CRealLe_0R_to_single_dist : forall (x : CReal) (n : Z),
0 <= x -> (-(2^n) <= seq x n)%Q.