diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-07-15 21:57:22 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-07-15 21:57:22 +0000 |
| commit | 4b0da48602bad97f4f5238eccac9fa3a0bdecda4 (patch) | |
| tree | 88212405b23d90dfbf0af93a1e13b2ccad106cbc /contrib/subtac/g_eterm.ml4 | |
| parent | 2db7263c70fbf401422fe4797e86659c4d7c4310 (diff) | |
Subtac: traitement correct des existentielles et de la récursion.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7237 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/g_eterm.ml4')
| -rw-r--r-- | contrib/subtac/g_eterm.ml4 | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/contrib/subtac/g_eterm.ml4 b/contrib/subtac/g_eterm.ml4 new file mode 100644 index 000000000..7b4bc31b4 --- /dev/null +++ b/contrib/subtac/g_eterm.ml4 @@ -0,0 +1,27 @@ +(************************************************************************) +(* 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) *) +(* *) +(**************************************************************************) + +(*i camlp4deps: "parsing/grammar.cma" i*) + +(* $Id$ *) + +open Eterm + +TACTIC EXTEND Eterm + [ "Eterm" ] -> [ + (fun gl -> + let evm = Tacmach.project gl and t = Tacmach.pf_concl gl in + Eterm.etermtac (evm, t) gl) ] +END |