diff options
Diffstat (limited to 'library/global.mli')
| -rw-r--r-- | library/global.mli | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/library/global.mli b/library/global.mli index 3c2317122..30bd04150 100644 --- a/library/global.mli +++ b/library/global.mli @@ -15,6 +15,7 @@ open Term open Declarations open Entries open Indtypes +open Mod_subst open Safe_typing (*i*) @@ -47,12 +48,11 @@ val push_named_def : (identifier * constr * types option) -> Univ.constraints val add_constant : dir_path -> identifier -> global_declaration -> constant val add_mind : - dir_path -> identifier -> mutual_inductive_entry -> kernel_name + dir_path -> identifier -> mutual_inductive_entry -> mutual_inductive -val add_module : identifier -> module_entry -> module_path +val add_module : identifier -> module_entry -> module_path * delta_resolver val add_modtype : identifier -> module_struct_entry -> module_path -val add_include : module_struct_entry -> unit -val add_alias : identifier -> module_path -> module_path +val add_include : module_struct_entry -> bool -> delta_resolver val add_constraints : constraints -> unit @@ -66,10 +66,11 @@ val set_engagement : engagement -> unit of the started module / module type *) val start_module : identifier -> module_path -val end_module : - Summary.frozen -> identifier -> module_struct_entry option -> module_path -val add_module_parameter : mod_bound_id -> module_struct_entry -> unit +val end_module : Summary.frozen ->identifier -> module_struct_entry option -> + module_path * delta_resolver + +val add_module_parameter : mod_bound_id -> module_struct_entry -> delta_resolver val start_modtype : identifier -> module_path val end_modtype : Summary.frozen -> identifier -> module_path @@ -83,10 +84,12 @@ val lookup_inductive : inductive -> mutual_inductive_body * one_inductive_body val lookup_mind : mutual_inductive -> mutual_inductive_body val lookup_module : module_path -> module_body val lookup_modtype : module_path -> module_type_body +val constant_of_delta : constant -> constant +val mind_of_delta : mutual_inductive -> mutual_inductive (* Compiled modules *) val start_library : dir_path -> module_path -val export : dir_path -> compiled_library +val export : dir_path -> module_path * compiled_library val import : compiled_library -> Digest.t -> module_path (*s Function to get an environment from the constants part of the global |