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 /tactics | |
| parent | b582db2ecbb3f7f1315fedc50b0009f62f5c59ad (diff) | |
Fixing bug #4511: evar tactic can create non-typed evars.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/evar_tactics.ml | 3 |
1 files changed, 3 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 |