diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-21 08:43:30 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-24 15:16:03 +0200 |
| commit | d5c3569d20253166487482dfb69716985943863c (patch) | |
| tree | 2b18e1d9d3de61181f9d9efca4369ebf6d6d1a10 /tactics | |
| parent | 1eea5f0081264ccb01a12f682734e8a624f83804 (diff) | |
Optimization in the subst tactic.
Do not evar-normalize the term to substitute with. The engine should be
insensitive to this kind of modification.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 3ba058e7f..e26450531 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2928,7 +2928,7 @@ let unfold_body x = let xval = match Context.Named.lookup x hyps with | LocalAssum _ -> errorlabstrm "unfold_body" (pr_id x ++ str" is not a defined hypothesis.") - | LocalDef (_,xval,_) -> pf_nf_evar gl xval + | LocalDef (_,xval,_) -> xval in Tacticals.New.afterHyp x begin fun aft -> let hl = List.fold_right (fun decl cl -> (get_id decl, InHyp) :: cl) aft [] in |