(************************************************************************)
(* Copyright 2006 Milad Niqui                                           *)
(* This file is distributed under the terms of the                      *)
(* GNU Lesser General Public License Version 2.1                        *)
(* A copy of the license can be found at                                *)
(*                  <http://www.gnu.org/licenses/lgpl-2.1.html>         *)
(************************************************************************)
Require Export Qsyntax.
Require Export Field_Theory_Q.
Require Export Q_ordered_field_properties.
Definition Qabs (q:Q):Q:=
match q with
| Zero => Zero
| Qpos qp => Qpos qp
| Qneg qp => Qpos qp
end.
intros q p H; apply (proj1 (Qabs_5 _ _ H)).
Qed.

Lemma Qabs_nonzero_pos:forall q, q<> Zero -> Zero < Qabs q.