From 65ba1b36df33a74998240a02fecc1fb80c3eeeee Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Wed, 13 Jul 2016 15:27:28 +0200
Subject: Fixing printing of evar name in an error message of instantiate.

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

(limited to 'proofs')

diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml
index 059ae54c9d..b6f2f69d29 100644
--- a/proofs/evar_refiner.ml
+++ b/proofs/evar_refiner.ml
@@ -56,7 +56,7 @@ let w_refine (evk,evi) (ltac_var,rawc) sigma =
       let loc = Glob_ops.loc_of_glob_constr rawc in
       user_err_loc
         (loc,"", str "Instance is not well-typed in the environment of " ++
-                 str (string_of_existential evk))
+                 pr_existential_key sigma evk ++ str ".")
   in
   define_and_solve_constraints evk typed_c env (evars_reset_evd sigma' sigma)
 
-- 
cgit v1.2.3