diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-12-07 23:21:07 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-12-07 23:21:07 +0000 |
| commit | d0f57e4e8b9d8feaadf96a241d3546ba061eb20c (patch) | |
| tree | c5543fd14d187ccd6fe47d295718c802cb5b24e7 /tactics | |
| parent | 47c78072c71b34c4c5469736367234f43203e7c9 (diff) | |
Adding the tactic "instantiate" (without argument), to force the
instantiation of evars in tacticals (cf r9985, r10294).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10356 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/extratactics.ml4 | 3 | ||||
| -rw-r--r-- | tactics/tacticals.ml | 1 | ||||
| -rw-r--r-- | tactics/tacticals.mli | 1 |
3 files changed, 4 insertions, 1 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 3ddb4188b..ef6ac60f4 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -290,16 +290,17 @@ TACTIC EXTEND evar END open Tacexpr +open Tacticals TACTIC EXTEND instantiate [ "instantiate" "(" integer(i) ":=" raw(c) ")" hloc(hl) ] -> [instantiate i c hl ] +| [ "instantiate" ] -> [ tclNORMEVAR ] END (** Nijmegen "step" tactic for setoid rewriting *) -open Tacticals open Tactics open Tactics open Libnames diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index f13897d1f..e5093a947 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -37,6 +37,7 @@ open Tacexpr (* Tacticals re-exported from the Refiner module.*) (*************************************************) +let tclNORMEVAR = tclNORMEVAR let tclIDTAC = tclIDTAC let tclIDTAC_MESSAGE = tclIDTAC_MESSAGE let tclORELSE = tclORELSE diff --git a/tactics/tacticals.mli b/tactics/tacticals.mli index de6ce5964..c84218210 100644 --- a/tactics/tacticals.mli +++ b/tactics/tacticals.mli @@ -24,6 +24,7 @@ open Tacexpr (* Tacticals i.e. functions from tactics to tactics. *) +val tclNORMEVAR : tactic val tclIDTAC : tactic val tclIDTAC_MESSAGE : std_ppcmds -> tactic val tclORELSE : tactic -> tactic -> tactic |