diff options
| author | herbelin | 2003-11-29 16:15:58 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-29 16:15:58 +0000 |
| commit | 9058fb97426307536f56c3e7447be2f70798e081 (patch) | |
| tree | b9a5fcf2ace7ecec13ed264b93c33fc04b0f220f /contrib7/omega/Omega.v | |
| parent | 95ad10e5eb2efc9b63382e0e6a2f9ada8da2ea2d (diff) | |
Deplacement des fichiers ancienne syntaxe dans theories7, contrib7 et states7
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5026 85f007b7-540e-0410-9357-904b9bb8a0f7
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 0000000000..480f7594be --- /dev/null +++ b/contrib7/omega/Omega.v @@ -0,0 +1,57 @@ +(***********************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *) +(* \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$ *) + +(* 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. |