diff options
| author | sacerdot | 2004-09-30 17:21:01 +0000 |
|---|---|---|
| committer | sacerdot | 2004-09-30 17:21:01 +0000 |
| commit | 4fd77a7caa5fe6e88d04ad6bb9ce4e43f5f9bd89 (patch) | |
| tree | 6d0668b08cf0d747888eef528ad42a5772f983d2 /tactics/extratactics.ml4 | |
| parent | 8a00bdd6d838f65601ed9006671a8afcb9a1890d (diff) | |
New tactic
setoid_replace ... with ... in ... [using relation ...]
[generate side conditions ...]
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6166 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/extratactics.ml4')
| -rw-r--r-- | tactics/extratactics.ml4 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 6fac3703e5..ff12e366cf 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -173,6 +173,14 @@ TACTIC EXTEND SetoidReplace [ setoid_replace None c1 c2 ~new_goals:l ] | [ "Setoid_replace" constr(c1) "with" constr(c2) "using" "relation" constr(rel) "generate" "side" "conditions" constr_list(l) ] -> [ setoid_replace (Some rel) c1 c2 ~new_goals:l ] + | [ "Setoid_replace" constr(c1) "with" constr(c2) "in" hyp(h) ] -> + [ setoid_replace_in h None c1 c2 ~new_goals:[] ] + | [ "Setoid_replace" constr(c1) "with" constr(c2) "in" hyp(h) "using" "relation" constr(rel)] -> + [ setoid_replace_in h (Some rel) c1 c2 ~new_goals:[] ] + | [ "Setoid_replace" constr(c1) "with" constr(c2) "in" hyp(h) "generate" "side" "conditions" constr_list(l) ] -> + [ setoid_replace_in h None c1 c2 ~new_goals:l ] + | [ "Setoid_replace" constr(c1) "with" constr(c2) "in" hyp(h) "using" "relation" constr(rel) "generate" "side" "conditions" constr_list(l) ] -> + [ setoid_replace_in h (Some rel) c1 c2 ~new_goals:l ] END TACTIC EXTEND SetoidRewrite |