diff options
Diffstat (limited to 'contrib7/omega/Omega.v')
-rw-r--r-- | contrib7/omega/Omega.v | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/contrib7/omega/Omega.v b/contrib7/omega/Omega.v new file mode 100644 index 00000000..76e37519 --- /dev/null +++ b/contrib7/omega/Omega.v @@ -0,0 +1,57 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) +(**************************************************************************) +(* *) +(* Omega: a solver of quantifier-free problems in Presburger Arithmetic *) +(* *) +(* Pierre Crégut (CNET, Lannion, France) *) +(* *) +(**************************************************************************) + +(* $Id: Omega.v,v 1.1.2.1 2004/07/16 19:30:17 herbelin Exp $ *) + +(* We do not require [ZArith] anymore, but only what's necessary for Omega *) +Require Export ZArith_base. +Require Export OmegaLemmas. + +Hints Resolve Zle_n Zplus_sym Zplus_assoc Zmult_sym Zmult_assoc + Zero_left Zero_right Zmult_one Zplus_inverse_l Zplus_inverse_r + Zmult_plus_distr_l Zmult_plus_distr_r : zarith. + +Require Export Zhints. + +(* +(* The constant minus is required in coq_omega.ml *) +Require Minus. +*) + +Hint eq_nat_Omega : zarith := Extern 10 (eq nat ? ?) Abstract Omega. +Hint le_Omega : zarith := Extern 10 (le ? ?) Abstract Omega. +Hint lt_Omega : zarith := Extern 10 (lt ? ?) Abstract Omega. +Hint ge_Omega : zarith := Extern 10 (ge ? ?) Abstract Omega. +Hint gt_Omega : zarith := Extern 10 (gt ? ?) Abstract Omega. + +Hint not_eq_nat_Omega : zarith := Extern 10 ~(eq nat ? ?) Abstract Omega. +Hint not_le_Omega : zarith := Extern 10 ~(le ? ?) Abstract Omega. +Hint not_lt_Omega : zarith := Extern 10 ~(lt ? ?) Abstract Omega. +Hint not_ge_Omega : zarith := Extern 10 ~(ge ? ?) Abstract Omega. +Hint not_gt_Omega : zarith := Extern 10 ~(gt ? ?) Abstract Omega. + +Hint eq_Z_Omega : zarith := Extern 10 (eq Z ? ?) Abstract Omega. +Hint Zle_Omega : zarith := Extern 10 (Zle ? ?) Abstract Omega. +Hint Zlt_Omega : zarith := Extern 10 (Zlt ? ?) Abstract Omega. +Hint Zge_Omega : zarith := Extern 10 (Zge ? ?) Abstract Omega. +Hint Zgt_Omega : zarith := Extern 10 (Zgt ? ?) Abstract Omega. + +Hint not_eq_nat_Omega : zarith := Extern 10 ~(eq Z ? ?) Abstract Omega. +Hint not_Zle_Omega : zarith := Extern 10 ~(Zle ? ?) Abstract Omega. +Hint not_Zlt_Omega : zarith := Extern 10 ~(Zlt ? ?) Abstract Omega. +Hint not_Zge_Omega : zarith := Extern 10 ~(Zge ? ?) Abstract Omega. +Hint not_Zgt_Omega : zarith := Extern 10 ~(Zgt ? ?) Abstract Omega. + +Hint false_Omega : zarith := Extern 10 False Abstract Omega. |