diff options
| author | Pierre-Marie Pédrot | 2018-10-08 10:17:53 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-08 10:17:53 +0200 |
| commit | cbbd19eb3d9740063e900463f6406ba0a144c96a (patch) | |
| tree | 39b9d0dda58bd110bbf41d1db8a79dd8d1220fb0 /plugins/funind | |
| parent | 07ba57a0c313a86f4e0f87352cfa50646d00709f (diff) | |
| parent | e5733e4a7ff6c933588b7181eb5234e2503a1b3a (diff) | |
Merge PR #8554: Fixes #8553: regression of tactic "change" under binders.
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/recdef.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 7298342e1e..633d98a585 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -713,7 +713,7 @@ let mkDestructEq : observe_tclTHENLIST (str "mkDestructEq") [Proofview.V82.of_tactic (generalize new_hyps); (fun g2 -> - let changefun patvars sigma = + let changefun patvars env sigma = pattern_occs [Locus.AllOccurrencesBut [1], expr] (pf_env g2) sigma (pf_concl g2) in Proofview.V82.of_tactic (change_in_concl None changefun) g2); |