diff options
| -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 719d95aedc..4f644ac4e4 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 *) |