diff options
| author | herbelin | 2009-08-06 11:34:12 +0000 |
|---|---|---|
| committer | herbelin | 2009-08-06 11:34:12 +0000 |
| commit | da7fb3e13166747b49cdf1ecfad394ecb4e0404a (patch) | |
| tree | 51e8aacf24c5dc6fd395bf162590d80568e2882d /tactics/extratactics.ml4 | |
| parent | 81785201c87ba994507ade890cedc99503d69112 (diff) | |
Move out JMeq of subst for compatibility (it affects e.g. the
compilation of Grenoble/ATBR). Add subst' for subst extended with JMeq
(maybe an option would be better??).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12264 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/extratactics.ml4')
| -rw-r--r-- | tactics/extratactics.ml4 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 2b4b9cffe9..f1c2551548 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -335,7 +335,12 @@ END TACTIC EXTEND subst | [ "subst" ne_var_list(l) ] -> [ subst l ] -| [ "subst" ] -> [ subst_all ] +| [ "subst" ] -> [ subst_all ~strict:true] (* W/o JMeq *) + +END + +TACTIC EXTEND subst' +| [ "subst'" ] -> [ subst_all ~strict:false ] (* With JMeq *) END open Evar_tactics |