Add Morphism Qred_extr : Qred_extr_comp.Definition Qplus' (p q : Q) := Qred (Qplus p q).Definition Qmult' (p q : Q) := Qred (Qmult p q).

Lemma Qmult'_correct : forall p q : Q, (Qmult' p q)==(Qmult p q).