diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2014-06-18 17:16:59 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-18 17:21:21 +0200 |
commit | 23f4804b50307766219392229757e75da9aa41d9 (patch) | |
tree | 4df833759b600b1a3d638bdbc65cf5060eb3e24f /proofs/proof_global.mli | |
parent | 77839ae306380e99a8ceac0bf26ff86ec9159346 (diff) |
Proofs now take and return an evar_universe_context, simplifying interfaces
and avoiding explicit substitutions and merging of contexts, e.g. in obligations.ml.
The context produced by typechecking a statement is passed in the proof, allowing the
universe name context to be correctly folded as well. Mainly an API cleanup.
Diffstat (limited to 'proofs/proof_global.mli')
-rw-r--r-- | proofs/proof_global.mli | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index 1ad1cebf8..d5229c562 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -53,7 +53,7 @@ val give_me_the_proof : unit -> Proof.proof (i.e. an proof ending command) and registers the appropriate values. *) type lemma_possible_guards = int list list -type proof_universes = Universes.universe_opt_subst Univ.in_universe_context +type proof_universes = Evd.evar_universe_context type proof_object = { id : Names.Id.t; entries : Entries.definition_entry list; @@ -78,13 +78,13 @@ type closed_proof = proof_object * proof_terminator closing commands and the xml plugin); [terminator] is used at the end of the proof to close the proof. *) val start_proof : - Names.Id.t -> Decl_kinds.goal_kind -> (Environ.env * Term.types Univ.in_universe_context_set) list -> + Names.Id.t -> Decl_kinds.goal_kind -> Evd.evar_universe_context -> (Environ.env * Term.types) list -> proof_terminator -> unit (** Like [start_proof] except that there may be dependencies between initial goals. *) val start_dependent_proof : - Names.Id.t -> Decl_kinds.goal_kind -> Proofview.telescope -> + Names.Id.t -> Decl_kinds.goal_kind -> Evd.evar_universe_context -> Proofview.telescope -> proof_terminator -> unit (* Takes a function to add to the exceptions data relative to the @@ -95,8 +95,7 @@ val close_proof : (exn -> exn) -> closed_proof * Both access the current proof state. The formes is supposed to be * chained with a computation that completed the proof *) -type closed_proof_output = Entries.proof_output list * - Universes.universe_opt_subst Univ.in_universe_context +type closed_proof_output = Entries.proof_output list * Evd.evar_universe_context val return_proof : unit -> closed_proof_output val close_future_proof : feedback_id:Stateid.t -> |