From d2c50bb29df8f0b23f7ee498abeda43a672fc688 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Wed, 6 Dec 2017 08:58:50 +0100 Subject: Proof engine: consider the pair principal and future goals as an entity. --- engine/evd.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'engine/evd.ml') 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 } (**********************************************************) -- cgit v1.2.3