diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-02-27 06:09:21 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-03-27 19:17:28 +0200 |
| commit | a7946816d96cb66aa7d62302e8aa602a3a9f3c99 (patch) | |
| tree | 53631f445c62d7775215bcce2b75f42aaa03962a | |
| parent | 3e2887bbcba6846ce3a18898fcfebe48632b72b9 (diff) | |
Export Proofview.undefined as "unsafe" primitive.
| -rw-r--r-- | engine/proofview.ml | 2 | ||||
| -rw-r--r-- | engine/proofview.mli | 6 |
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 |