Definition CReal_plus (x y : CReal) : CReal :=
{|
seq := CReal_plus_seq x y;
scale := CReal_plus_scale x y;
cauchy := CReal_plus_cauchy x y;
bound := CReal_plus_bound x y
|}.
Infix "+" := CReal_plus : CReal_scope.
Definition CReal_opp_seq (x : CReal) :=
(fun n : Z => - seq x n).
Definition CReal_opp_scale (x : CReal) : Z :=
x.(scale).

(* Specifications: *)
Lemma CReal_opp_cauchy : forall (x : CReal),
QCauchySeq (CReal_opp_seq x).
Lemma CReal_opp_bound : forall (x : CReal),
QBound (CReal_opp_seq x) (CReal_opp_scale x).