diff options
| author | Pierre-Marie Pédrot | 2016-01-24 12:17:21 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-01-24 12:18:48 +0100 |
| commit | 4b1103dc38754917e12bf04feca446e02cf55f07 (patch) | |
| tree | 70a0ff3ba982fa13814f457d46196d49587ec987 | |
| parent | b582db2ecbb3f7f1315fedc50b0009f62f5c59ad (diff) | |
Fixing bug #4511: evar tactic can create non-typed evars.
| -rw-r--r-- | tactics/evar_tactics.ml | 3 | ||||
| -rw-r--r-- | test-suite/bugs/closed/4511.v | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml index 202aca0de1..2887fc2284 100644 --- a/tactics/evar_tactics.ml +++ b/tactics/evar_tactics.ml @@ -71,6 +71,9 @@ let let_evar name typ = Proofview.Goal.enter begin fun gl -> let sigma = Proofview.Goal.sigma gl in let env = Proofview.Goal.env gl in + let sigma = ref sigma in + let _ = Typing.sort_of env sigma typ in + let sigma = !sigma in let id = match name with | Names.Anonymous -> let id = Namegen.id_of_name_using_hdchar env typ name in diff --git a/test-suite/bugs/closed/4511.v b/test-suite/bugs/closed/4511.v new file mode 100644 index 0000000000..0cdb3aee4f --- /dev/null +++ b/test-suite/bugs/closed/4511.v @@ -0,0 +1,3 @@ +Goal True. +Fail evar I. + |