diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-07 16:42:39 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-07 16:51:36 +0200 |
| commit | 21994cc4c617582f4f94577c1c582a7b51b7770b (patch) | |
| tree | 6b8800bd453bf610576c51d2f0a51f64d833a3c0 /proofs/evar_refiner.ml | |
| parent | e71a7e83c14a4ae77bbabcbf9c67a9cb55995bb5 (diff) | |
Better structure for Ltac pretyping environments.
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 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' |