diff options
| author | Hugo Herbelin | 2014-11-15 22:13:28 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-11-16 13:31:49 +0100 |
| commit | 4c576db3ed40328caa37144eb228365f497293e5 (patch) | |
| tree | c83ff5a281e6918682510d33a28bf6412189adec /plugins | |
| parent | 346df3d1336bfa01bc6e58ea08245b67d3127a00 (diff) | |
Fixing side bug in db37c9f3f32ae7 delaying interpretation of the
right-hand side of a "change with": the rhs lives in the toplevel
environment.
Diffstat (limited to 'plugins')
| -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 72613624ba..fd54584bc8 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -674,7 +674,7 @@ let mkDestructEq : [Simple.generalize new_hyps; (fun g2 -> change_in_concl None - (fun env sigma -> + (fun sigma -> pattern_occs [Locus.AllOccurrencesBut [1], expr] (pf_env g2) sigma (pf_concl g2)) g2); Proofview.V82.of_tactic (simplest_case expr)]), to_revert |