From e508aec3a90aca93c188c54b707d19114ef5ff83 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Wed, 6 Dec 2017 09:01:45 +0100 Subject: Proof engine: adding a function to save future goals including principal one. --- engine/evd.ml | 2 ++ engine/evd.mli | 4 ++++ 2 files changed, 6 insertions(+) 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 } diff --git a/engine/evd.mli b/engine/evd.mli index 49632d2e7..44ec4a7e5 100644 --- a/engine/evd.mli +++ b/engine/evd.mli @@ -299,6 +299,10 @@ val principal_future_goal : evar_map -> Evar.t option (** Retrieves the name of the principal existential variable if there is one. Used by the [refine] primitive of the tactic engine. *) +val save_future_goals : evar_map -> Evar.t list * Evar.t option +(** Retrieves the list of future goals including the principal future + goal. Used by the [refine] primitive of the tactic engine. *) + val reset_future_goals : evar_map -> evar_map (** Clears the list of future goals (as well as the principal future goal). Used by the [refine] primitive of the tactic engine. *) -- cgit v1.2.3