diff options
Diffstat (limited to 'tactics/tactics.ml')
| -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 3ba058e7f4..e264505314 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 |