diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-04 18:39:35 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-09-05 00:07:21 +0200 |
| commit | 080167469f6435696d785caa1fca9fd258148157 (patch) | |
| tree | 4abe474bc00e934c14b52df7c1021ae393373c78 /tactics/tacinterp.ml | |
| parent | d55921dbacdc21a640b80482fb32188fa99febe7 (diff) | |
At last a working clearbody!
This time it should work at least as well as the previous version. The error
messages were adapted a little. There is still a buggy behaviour when clearing
lets in section, but this is mostly a problem of section handling. The v8.4
version of clearbody did exhibit the same behaviour anyway.
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 16e785180..ccea38caa 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1928,8 +1928,8 @@ and interp_atomic ist tac : unit Proofview.tactic = if b then Tactics.keep l gl else Tactics.clear l gl end | TacClearBody l -> - Proofview.V82.tactic begin fun gl -> - Tactics.clear_body (interp_hyp_list ist (pf_env gl) l) gl + Proofview.Goal.raw_enter begin fun gl -> + Tactics.clear_body (interp_hyp_list ist (Tacmach.New.pf_env gl) l) end | TacMove (dep,id1,id2) -> Proofview.V82.tactic begin fun gl -> |