diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2016-08-14 19:10:35 +0200 |
|---|---|---|
| committer |  Matej Kosik <m4tej.kosik@gmail.com> | 2016-08-25 10:52:26 +0200 |
| commit | 3e6bc0e8d09e3eb913b366b4f5db280154b94018 (patch) | |
| tree | 9f29b4bfa294ee8b204c860ee9eadb8bb76e03e2 /proofs | |
| parent | 4688a3b9750827eb0f5f61066ca617efcd97bc8c (diff) | |
CLEANUP: Type alias "Context.section_context" was removed
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.mli | 4 | ||||
| -rw-r--r-- | proofs/proof_global.ml | 2 | ||||
| -rw-r--r-- | proofs/proof_global.mli | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index 666730e1a..9b0200039 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -130,8 +130,8 @@ val set_end_tac : Tacexpr.raw_tactic_expr -> unit (** [set_used_variables l] declares that section variables [l] will be used in the proof *) val set_used_variables : - Id.t list -> Context.section_context * (Loc.t * Names.Id.t) list -val get_used_variables : unit -> Context.section_context option + Id.t list -> Context.Named.t * (Loc.t * Names.Id.t) list +val get_used_variables : unit -> Context.Named.t option (** {6 Universe binders } *) val get_universe_binders : unit -> universe_binders option diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 4cb9f03ce..17cc92803 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -91,7 +91,7 @@ type pstate = { pid : Id.t; terminator : proof_terminator CEphemeron.key; endline_tactic : Tacexpr.raw_tactic_expr option; - section_vars : Context.section_context option; + section_vars : Context.Named.t option; proof : Proof.proof; strength : Decl_kinds.goal_kind; mode : proof_mode CEphemeron.key; diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index 59daa2968..86fc1deff 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -143,8 +143,8 @@ val set_interp_tac : * (w.r.t. type dependencies and let-ins covered by it) + a list of * ids to be cleared *) val set_used_variables : - Names.Id.t list -> Context.section_context * (Loc.t * Names.Id.t) list -val get_used_variables : unit -> Context.section_context option + Names.Id.t list -> Context.Named.t * (Loc.t * Names.Id.t) list +val get_used_variables : unit -> Context.Named.t option val get_universe_binders : unit -> universe_binders option |