From 21994cc4c617582f4f94577c1c582a7b51b7770b Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Thu, 7 Aug 2014 16:42:39 +0200
Subject: Better structure for Ltac pretyping environments.

---
 proofs/evar_refiner.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/evar_refiner.ml')

diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml
index 4746177ac..98a97a91c 100644
--- a/proofs/evar_refiner.ml
+++ b/proofs/evar_refiner.ml
@@ -64,6 +64,6 @@ let instantiate_pf_com evk com sigma =
   let evi = Evd.find sigma evk in
   let env = Evd.evar_filtered_env evi in
   let rawc = Constrintern.intern_constr env com in
-  let ltac_vars = (Id.Map.empty, Id.Map.empty, Id.Map.empty) in
+  let ltac_vars = Pretyping.empty_lvar in
   let sigma' = w_refine (evk, evi) (ltac_vars, rawc) sigma in
   sigma'
-- 
cgit v1.2.3