diff options
| author | Hugo Herbelin | 2017-12-06 08:58:50 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-03-08 21:58:26 +0100 |
| commit | d2c50bb29df8f0b23f7ee498abeda43a672fc688 (patch) | |
| tree | 127379b1d724f5b7b76f2b0a48a942cc7552f35e /engine/proofview.ml | |
| parent | 866bad4e9cdaa6ff4419840f8c9980f770873176 (diff) | |
Proof engine: consider the pair principal and future goals as an entity.
Diffstat (limited to 'engine/proofview.ml')
| -rw-r--r-- | engine/proofview.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 8a844bbf54..4f8da53787 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -771,7 +771,7 @@ let with_shelf tac = 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 sigma = Evd.restore_future_goals sigma (fgoals,pgoal) 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 |