diff options
| author | coqbot-app[bot] | 2020-11-28 10:04:40 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-28 10:04:40 +0000 |
| commit | 7f1b4176d2606cc965adc09ce5e8346663980240 (patch) | |
| tree | bd840126a6bf77cf5745d216ad2888c45d725113 /plugins | |
| parent | 79946db207944b7bda1287459edfccbbd211ce1e (diff) | |
| parent | 058ac643c5e93da2472e3a0a717b864f49f90b3b (diff) | |
Merge PR #13496: Revert "Remove deprecated tactic cutrewrite."
Reviewed-by: gares
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/extratactics.mlg | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/plugins/ltac/extratactics.mlg b/plugins/ltac/extratactics.mlg index 6ab82b1253..0b5d36b845 100644 --- a/plugins/ltac/extratactics.mlg +++ b/plugins/ltac/extratactics.mlg @@ -41,7 +41,7 @@ DECLARE PLUGIN "ltac_plugin" (**********************************************************************) (* replace, discriminate, injection, simplify_eq *) -(* dependent rewrite *) +(* cutrewrite, dependent rewrite *) let with_delayed_uconstr ist c tac = let flags = { @@ -201,6 +201,12 @@ TACTIC EXTEND dependent_rewrite -> { rewriteInHyp b c id } END +TACTIC EXTEND cut_rewrite +| [ "cutrewrite" orient(b) constr(eqn) ] -> { cutRewriteInConcl b eqn } +| [ "cutrewrite" orient(b) constr(eqn) "in" hyp(id) ] + -> { cutRewriteInHyp b eqn id } +END + (**********************************************************************) (* Decompose *) |