diff options
| author | Gaëtan Gilbert | 2020-08-27 12:16:15 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-09-30 11:39:03 +0200 |
| commit | 5135153d6cd2f22a82dd7209f46c02ed3f7c78cb (patch) | |
| tree | 5ee1c2ea7158452b103561877bf59aafe9bbd36f | |
| parent | 2c802aaf74c83274ae922c59081c01bfc267d31b (diff) | |
Derive Inversion does not allow leftover evars
Fix #12917
| -rw-r--r-- | plugins/ltac/leminv.ml | 3 | ||||
| -rw-r--r-- | test-suite/bugs/closed/bug_12917.v | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/plugins/ltac/leminv.ml b/plugins/ltac/leminv.ml index 47df3ec34f..f42c1f73a3 100644 --- a/plugins/ltac/leminv.ml +++ b/plugins/ltac/leminv.ml @@ -245,7 +245,8 @@ let add_inversion_lemma ~poly name env sigma t sort dep inv_op = let add_inversion_lemma_exn ~poly na com comsort bool tac = let env = Global.env () in let sigma = Evd.from_env env in - let sigma, c = Constrintern.interp_type_evars ~program_mode:false env sigma com in + let c, uctx = Constrintern.interp_type env sigma com in + let sigma = Evd.from_ctx uctx in let sigma, sort = Evd.fresh_sort_in_family ~rigid:univ_rigid sigma comsort in add_inversion_lemma ~poly na env sigma c sort bool tac diff --git a/test-suite/bugs/closed/bug_12917.v b/test-suite/bugs/closed/bug_12917.v new file mode 100644 index 0000000000..cd6b0766c6 --- /dev/null +++ b/test-suite/bugs/closed/bug_12917.v @@ -0,0 +1 @@ +Fail Derive Inversion bla with (le _ _). |