diff options
| author | Pierre-Marie Pédrot | 2016-02-29 17:24:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-03 16:51:09 +0200 |
| commit | 64637ffc5054199459d9fc7f07b84a99da71c6f1 (patch) | |
| tree | b5b5c4774e217aa1df50f5921dfa2e445b799b62 /ltac/tacintern.ml | |
| parent | 2c01bd7b446c1151922ad0a01c3dc6b85f5bea54 (diff) | |
Removing "intro" from the tactic AST.
Note that this breaks the compatibility, in a beneficial way I believe. Tactics
defined in strict mode (i.e. through Ltac foo := ...) may not do an introduction
on a local identifier anymore. They must use the "fresh" primitive instead.
Diffstat (limited to 'ltac/tacintern.ml')
| -rw-r--r-- | ltac/tacintern.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/ltac/tacintern.ml b/ltac/tacintern.ml index 0f827755a6..bd48ffb723 100644 --- a/ltac/tacintern.ml +++ b/ltac/tacintern.ml @@ -481,9 +481,6 @@ let rec intern_atomic lf ist x = (* Basic tactics *) | TacIntroPattern l -> TacIntroPattern (List.map (intern_intro_pattern lf ist) l) - | TacIntroMove (ido,hto) -> - TacIntroMove (Option.map (intern_ident lf ist) ido, - intern_move_location ist hto) | TacExact c -> TacExact (intern_constr ist c) | TacApply (a,ev,cb,inhyp) -> TacApply (a,ev,List.map (intern_constr_with_bindings_arg ist) cb, |