diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-07-13 15:27:28 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-07-13 15:31:47 +0200 |
| commit | 65ba1b36df33a74998240a02fecc1fb80c3eeeee (patch) | |
| tree | e9af73d9793c275a5fcfe4d10905c60503aa8af4 /proofs/evar_refiner.ml | |
| parent | 55d32c9a017853c2411f894a3ad1a946c628ba9c (diff) | |
Fixing printing of evar name in an error message of instantiate.
Diffstat (limited to 'proofs/evar_refiner.ml')
| -rw-r--r-- | proofs/evar_refiner.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index 059ae54c9..b6f2f69d2 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) |