diff options
| author | delahaye | 2000-05-03 17:31:07 +0000 |
|---|---|---|
| committer | delahaye | 2000-05-03 17:31:07 +0000 |
| commit | fc38a7d8f3d2a47aa8eee570747568335f3ffa19 (patch) | |
| tree | 9ddc595a02cf1baaab3e9595d77b0103c80d66bf /tactics/equality.ml | |
| parent | 5b0f516e7e1f6d2ea8ca0485ffe347a613b01a5c (diff) | |
Ajout du langage de tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@401 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index b282309927..72f02e7205 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -14,7 +14,7 @@ open Instantiate open Typeops open Typing open Tacmach -open Proof_trees +open Proof_type open Logic open Wcclausenv open Pattern @@ -1936,7 +1936,7 @@ let autorewrite lbases ltacstp opt_step ltacrest opt_rest depth_step gls = (repackage sigr gl,validation_fun) (*Collects the arguments of AutoRewrite ast node*) -let dyn_autorewrite largs= +(*let dyn_autorewrite largs= let rec explicit_base largs = let tacargs = List.map cvt_arg largs in List.map @@ -2016,8 +2016,7 @@ let dyn_autorewrite largs= anomalylabstrm "dyn_autorewrite" [<'sTR "Bad call of list_args (not a REDEXP)">] in - list_args largs + list_args largs*) (*Adds and hides the AutoRewrite tactic*) -let h_autorewrite = hide_tactic "AutoRewrite" dyn_autorewrite - +(*let h_autorewrite = hide_tactic "AutoRewrite" dyn_autorewrite*) |