diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/evar_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml index b7d5e1802..87aff97fb 100644 --- a/tactics/evar_tactics.ml +++ b/tactics/evar_tactics.ml @@ -41,7 +41,7 @@ let instantiate n (ist,rawc) ido gl = if n <= 0 then error "Incorrect existential variable index."; let evk,_ = List.nth evl (n-1) in let evi = Evd.find sigma evk in - let ltac_vars = Tacinterp.extract_ltac_constr_values ist (Evd.evar_env evi) in + let ltac_vars = Tacinterp.extract_ltac_constr_values ist (Evd.evar_filtered_env evi) in let sigma' = w_refine (evk,evi) (ltac_vars,rawc) sigma in tclTHEN (tclEVARS sigma') |