From 46c0b7ab3653a6f1ef4b40466c2dd130d09136cb Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Thu, 11 Jun 2020 18:51:34 +0200 Subject: Move given_up goals to evar_map --- engine/proofview.mli | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'engine/proofview.mli') diff --git a/engine/proofview.mli b/engine/proofview.mli index 0f49d2f5d8..29425b10f2 100644 --- a/engine/proofview.mli +++ b/engine/proofview.mli @@ -162,7 +162,7 @@ val apply -> 'a tactic -> proofview -> 'a * proofview - * (bool*Evar.t list*Evar.t list) + * (bool*Evar.t list) * Proofview_monad.Info.tree (** {7 Monadic primitives} *) @@ -470,9 +470,6 @@ module Unsafe : sig (** [tclPUTSHELF] appends goals to the shelf. *) val tclPUTSHELF : Evar.t list -> unit tactic - (** [tclPUTGIVENUP] add an given up goal. *) - val tclPUTGIVENUP : Evar.t list -> unit tactic - (** Sets the evar universe context. *) val tclEVARUNIVCONTEXT : UState.t -> unit tactic -- cgit v1.2.3 From 6c2a5cba55a831e461e806e08c7be968f9343f7e Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Fri, 12 Jun 2020 01:18:27 +0200 Subject: Make future_goals stack explicit in the evarmap --- engine/proofview.mli | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'engine/proofview.mli') diff --git a/engine/proofview.mli b/engine/proofview.mli index 29425b10f2..8853013a84 100644 --- a/engine/proofview.mli +++ b/engine/proofview.mli @@ -474,7 +474,7 @@ module Unsafe : sig val tclEVARUNIVCONTEXT : UState.t -> unit tactic (** Clears the future goals store in the proof view. *) - val reset_future_goals : proofview -> proofview + val push_future_goals : proofview -> proofview (** Give the evars the status of a goal (changes their source location and makes them unresolvable for type classes. *) -- cgit v1.2.3