aboutsummaryrefslogtreecommitdiffhomepage
path: root/engine/evd.ml
diff options
context:
space:
mode:
authorGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2017-12-06 09:01:45 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2018-03-08 21:58:31 +0100
commite508aec3a90aca93c188c54b707d19114ef5ff83 (patch)
tree8fd768cf8234b4b39368b6bc3a97a39423bb98af /engine/evd.ml
parentd2c50bb29df8f0b23f7ee498abeda43a672fc688 (diff)
Proof engine: adding a function to save future goals including principal one.
Diffstat (limited to 'engine/evd.ml')
-rw-r--r--engine/evd.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/engine/evd.ml b/engine/evd.ml
index e0453713e..60bc2eb40 100644
--- a/engine/evd.ml
+++ b/engine/evd.ml
@@ -943,6 +943,8 @@ let future_goals evd = evd.future_goals
let principal_future_goal evd = evd.principal_future_goal
+let save_future_goals evd = (evd.future_goals, evd.principal_future_goal)
+
let reset_future_goals evd =
{ evd with future_goals = [] ; principal_future_goal=None }