From 77b71db8470553aed0476827ec2e39aed0cbb6ed Mon Sep 17 00:00:00 2001 From: letouzey Date: Sun, 17 Jan 2010 13:31:10 +0000 Subject: Variant !F M for functor application that does not honor the Inline declarations For F(X:T), the application !F M works as F M, except that if module type T contains some "Inline" annotations, they are not taken in account when substituting X with M in F. See forthcoming commits for examples of use for this feature. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12678 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/global.mli | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'library/global.mli') diff --git a/library/global.mli b/library/global.mli index b7e788912..a8d76c4f4 100644 --- a/library/global.mli +++ b/library/global.mli @@ -50,10 +50,12 @@ val add_constant : val add_mind : dir_path -> identifier -> mutual_inductive_entry -> mutual_inductive -val add_module : identifier -> module_entry -> module_path * delta_resolver -val add_modtype : identifier -> module_struct_entry -> module_path +val add_module : + identifier -> module_entry -> bool -> module_path * delta_resolver +val add_modtype : + identifier -> module_struct_entry -> bool -> module_path val add_include : - module_struct_entry -> bool -> delta_resolver + module_struct_entry -> bool -> bool -> delta_resolver val add_constraints : constraints -> unit @@ -68,10 +70,11 @@ val set_engagement : engagement -> unit val start_module : identifier -> module_path -val end_module : Summary.frozen ->identifier -> module_struct_entry option -> - module_path * delta_resolver +val end_module : Summary.frozen ->identifier -> + (module_struct_entry * bool) option -> module_path * delta_resolver -val add_module_parameter : mod_bound_id -> module_struct_entry -> delta_resolver +val add_module_parameter : + mod_bound_id -> module_struct_entry -> bool -> delta_resolver val start_modtype : identifier -> module_path val end_modtype : Summary.frozen -> identifier -> module_path -- cgit v1.2.3