diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-12-06 08:58:50 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-08 21:58:26 +0100 |
commit | d2c50bb29df8f0b23f7ee498abeda43a672fc688 (patch) | |
tree | 127379b1d724f5b7b76f2b0a48a942cc7552f35e /engine/evd.ml | |
parent | 866bad4e9cdaa6ff4419840f8c9980f770873176 (diff) |
Proof engine: consider the pair principal and future goals as an entity.
Diffstat (limited to 'engine/evd.ml')
-rw-r--r-- | engine/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index 185cab101..e0453713e 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -946,7 +946,7 @@ let principal_future_goal evd = evd.principal_future_goal let reset_future_goals evd = { evd with future_goals = [] ; principal_future_goal=None } -let restore_future_goals evd gls pgl = +let restore_future_goals evd (gls,pgl) = { evd with future_goals = gls ; principal_future_goal = pgl } (**********************************************************) |