From 4b1103dc38754917e12bf04feca446e02cf55f07 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 24 Jan 2016 12:17:21 +0100
Subject: Fixing bug #4511: evar tactic can create non-typed evars.

---
 tactics/evar_tactics.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tactics')

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
-- 
cgit v1.2.3