diff options
| author | mohring | 2001-02-28 15:54:42 +0000 |
|---|---|---|
| committer | mohring | 2001-02-28 15:54:42 +0000 |
| commit | 05b756a9a5079e91c5015239bb801918d4903c08 (patch) | |
| tree | 465c4252b4e9d0b976369fc7b22caa132d508824 /proofs/refiner.ml | |
| parent | d942d0d429023bddd7ea93f4435d42357b296b23 (diff) | |
introduction d'un refine avec resolution des types et de l'instantiation des metas dans les existentielles
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1415 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 37a41cd257..e9c2147536 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -664,12 +664,11 @@ let extract_pftreestate pts = if subgoals <> [] then errorlabstrm "extract_proof" [< 'sTR "Attempt to save an incomplete proof" >]; - (*** let env = Global.env_of_context pts.tpf.goal.evar_hyps in strong whd_betaiotaevar env (ts_it pts.tpfsigma) pfterm - ***) + (*** local_strong (whd_ise (ts_it pts.tpfsigma)) pfterm - + ***) (* Focus on the first leaf proof in a proof-tree state *) let rec first_unproven pts = |