diff options
Diffstat (limited to 'library/lib.mli')
| -rw-r--r-- | library/lib.mli | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/library/lib.mli b/library/lib.mli index 8975acd9ae..759a1a1353 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -161,23 +161,23 @@ val xml_close_section : (Names.Id.t -> unit) Hook.t (** {6 Section management for discharge } *) type variable_info = Names.Id.t * Decl_kinds.binding_kind * Term.constr option * Term.types -type variable_context = variable_info list +type variable_context = variable_info list val instance_from_variable_context : variable_context -> Names.Id.t array val named_of_variable_context : variable_context -> Context.named_context -val section_segment_of_constant : Names.constant -> variable_context -val section_segment_of_mutual_inductive: Names.mutual_inductive -> variable_context +val section_segment_of_constant : Names.constant -> variable_context Univ.in_universe_context +val section_segment_of_mutual_inductive: Names.mutual_inductive -> variable_context Univ.in_universe_context -val section_instance : Globnames.global_reference -> Names.Id.t array +val section_instance : Globnames.global_reference -> Univ.universe_instance * Names.Id.t array val is_in_section : Globnames.global_reference -> bool -val add_section_variable : Names.Id.t -> Decl_kinds.binding_kind -> unit +val add_section_variable : Names.Id.t -> Decl_kinds.binding_kind -> Decl_kinds.polymorphic -> Univ.universe_context_set -> unit -val add_section_constant : Names.constant -> Context.named_context -> unit +val add_section_constant : bool (* is_projection *) -> + Names.constant -> Context.named_context -> unit val add_section_kn : Names.mutual_inductive -> Context.named_context -> unit -val replacement_context : unit -> - (Names.Id.t array Names.Cmap.t * Names.Id.t array Names.Mindmap.t) +val replacement_context : unit -> Opaqueproof.work_list (** {6 Discharge: decrease the section level if in the current section } *) |