Add Parametric Morphism {R : ConstructiveReals} : (CR_of_Q R)
with signature Qeq ==> CReq R
as CR_of_Q_morph.

(* Specifications: *)
Lemma eq_inject_Q : forall {R : ConstructiveReals} (q r : Q),
CR_of_Q R q == CR_of_Q R r -> Qeq q r.