diff options
| author | herbelin | 2000-10-04 16:10:07 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-04 16:10:07 +0000 |
| commit | bc6a92bbcf13044719e3dfd0f2575d07a0cc9036 (patch) | |
| tree | 4dd4bdb2b05670af7e42432ce9da9ebbfbf69de8 /proofs/refiner.ml | |
| parent | b4ace8546bf9de05a8cdd4267e17c32ee6806f18 (diff) | |
Utilisation de local_strong plutôt que strong buggé avec défs locales (2ème)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@656 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 1f2a412a2e..af3f15ef48 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -681,7 +681,7 @@ let extract_pftreestate pts = if subgoals <> [] then errorlabstrm "extract_proof" [< 'sTR "Attempt to save an incomplete proof" >]; - local_strong (whd_betaiotaevar (ts_it pts.tpfsigma)) pfterm + local_strong (whd_betaiotaevar pts.tpf.goal.evar_env (ts_it pts.tpfsigma)) pfterm (* Focus on the first leaf proof in a proof-tree state *) |