diff options
author | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-07 13:06:04 +0000 |
---|---|---|
committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-07 13:06:04 +0000 |
commit | 456c7abfc921d9f1f5dcd0107f81b48d71f7f92e (patch) | |
tree | 3dbe610cc4532592d3c15136d381a21a9e082671 /proofs | |
parent | c18373b430776e9e66cc9e18dce9a4c3ea5e2458 (diff) |
bypass w_Define when w_refine-ing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5868 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/evar_refiner.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index 719d95aed..4f644ac4e 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -141,7 +141,9 @@ let w_refine ev rawc wc = let evd,typed_c = Pretyping.understand_gen_tcc wc.sigma env [] (Some e_info.evar_concl) rawc in - w_Define ev typed_c {wc with sigma=evd} + let inst_info = {e_info with evar_body = Evar_defined typed_c } in + restore_decl ev inst_info (extract_decl ev {wc with sigma=evd}) + (* w_Define ev typed_c {wc with sigma=evd} *) (* the instantiate tactic was moved to tactics/evar_tactics.ml *) |