Local Ltac simplify_Qabs :=
  match goal with |- context [(Qabs ?a)%Q] => ring_simplify a end.Local Ltac simplify_Qlt :=
  match goal with |- (?l < ?r)%Q => ring_simplify l; ring_simplify r end.

(* Specifications: *)
Local Lemma Qopp_mult_mone : forall q : Q, (-1 * q == -q)%Q.
Local Lemma Qabs_involutive: forall q : Q, (Qabs (Qabs q) == Qabs q)%Q.