diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2013-10-11 18:30:54 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:53 +0200 |
| commit | 57bee17f928fc67a599d2116edb42a59eeb21477 (patch) | |
| tree | f8e1446f5869de08be1dc20c104d61d0e47ce57d /proofs/proof_global.mli | |
| parent | a4043608f704f026de7eb5167a109ca48e00c221 (diff) | |
Rework handling of universes on top of the STM, allowing for delayed
computation in case of non-polymorphic proofs. Also fix plugins after
forgotten merge conflicts. Still does not compile everything.
Diffstat (limited to 'proofs/proof_global.mli')
| -rw-r--r-- | proofs/proof_global.mli | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index e651bdfae..f10e991ea 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -61,7 +61,6 @@ type proof_object = { id : Names.Id.t; entries : Entries.definition_entry list; persistence : Decl_kinds.goal_kind; - opt_subst : Universes.universe_opt_subst; } type proof_ending = @@ -95,9 +94,13 @@ val close_proof : (exn -> exn) -> closed_proof (* Intermediate step necessary to delegate the future. * Both access the current proof state. The formes is supposed to be * chained with a computation that completed the proof *) -val return_proof : unit -> Entries.proof_output list + +type closed_proof_output = Entries.proof_output list * + Universes.universe_opt_subst Univ.in_universe_context + +val return_proof : unit -> closed_proof_output val close_future_proof : feedback_id:Stateid.t -> - Entries.proof_output list Future.computation -> closed_proof + closed_proof_output Future.computation -> closed_proof (** Gets the current terminator without checking that the proof has been completed. Useful for the likes of [Admitted]. *) |