diff options
author | Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-06 15:06:17 +0200 |
---|---|---|
committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-06 15:06:17 +0200 |
commit | 31e780a275af0ad4be10a61b0096b8f5be38b6d3 (patch) | |
tree | c37f8cd1eb307edc8558639ce173a0bcdf7bd70f /proofs/evar_refiner.ml | |
parent | b600c51753c5b60e62bdfcf1e6409afa1ce69d7a (diff) |
[uconstr]: use a closure instead of eager substitution.
This avoids relying on detyping. As Matthieu Sozeau pointed out to me, [understand∘detyping] has no reason to be the identity. This may create surprising behaviour some times (when a detyped term loses its relations to the current context, in particular in terms of universes), and downright incompatibilities in the case of refine.
As a bonus this should be a faster implementation of [uconstr] with a leaner memory profile.
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 8c2776789..4746177ac 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) in + let ltac_vars = (Id.Map.empty, Id.Map.empty, Id.Map.empty) in let sigma' = w_refine (evk, evi) (ltac_vars, rawc) sigma in sigma' |