aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2018-02-27 06:09:21 +0100
committerGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2018-03-27 19:17:28 +0200
commita7946816d96cb66aa7d62302e8aa602a3a9f3c99 (patch)
tree53631f445c62d7775215bcce2b75f42aaa03962a
parent3e2887bbcba6846ce3a18898fcfebe48632b72b9 (diff)
Export Proofview.undefined as "unsafe" primitive.
-rw-r--r--engine/proofview.ml2
-rw-r--r--engine/proofview.mli6
2 files changed, 8 insertions, 0 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml
index b7014c542..639f48e77 100644
--- a/engine/proofview.ml
+++ b/engine/proofview.ml
@@ -1041,6 +1041,8 @@ module Unsafe = struct
let advance = Evarutil.advance
+ let undefined = undefined
+
let mark_as_unresolvable p gl =
{ p with solution = mark_in_evm ~goal:false p.solution gl }
diff --git a/engine/proofview.mli b/engine/proofview.mli
index 804f1543d..1905686fe 100644
--- a/engine/proofview.mli
+++ b/engine/proofview.mli
@@ -469,6 +469,12 @@ module Unsafe : sig
solved. *)
val advance : Evd.evar_map -> Evar.t -> Evar.t option
+ (** [undefined sigma l] applies [advance] to the goals of [l], then
+ returns the subset of resulting goals which have not yet been
+ defined *)
+ val undefined : Evd.evar_map -> Proofview_monad.goal_with_state list ->
+ Proofview_monad.goal_with_state list
+
val typeclass_resolvable : unit Evd.Store.field
end