diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-12-06 09:30:26 +0100 |
|---|---|---|
| committer |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-08 21:58:31 +0100 |
| commit | bfb393596b1df815a109c9c600b9a2b413561fcb (patch) | |
| tree | 57a79325475f1df46c5f0ba07ef194e9eb9f20c7 /engine | |
| parent | e508aec3a90aca93c188c54b707d19114ef5ff83 (diff) | |
Proof engine: using save_future_goal when relevant.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/proofview.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 4f8da5378..73f26c320 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -769,9 +769,8 @@ let with_shelf tac = Pv.get >>= fun npv -> let { shelf = gls; solution = sigma } = npv in let gls' = Evd.future_goals sigma in - let fgoals = Evd.future_goals solution in - let pgoal = Evd.principal_future_goal solution in - let sigma = Evd.restore_future_goals sigma (fgoals,pgoal) in + let fgoals = Evd.save_future_goals solution in + let sigma = Evd.restore_future_goals sigma fgoals in (* Ensure we mark and return only unsolved goals *) let gls' = undefined_evars sigma (CList.rev_append gls' gls) in let sigma = CList.fold_left (mark_in_evm ~goal:false) sigma gls' in |