diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-17 13:31:10 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-17 13:31:10 +0000 |
commit | 77b71db8470553aed0476827ec2e39aed0cbb6ed (patch) | |
tree | 78503d2a9bae305bbb5b3184a255346107d39ce3 /library/global.mli | |
parent | a93b81cff868259561c548147dd5ce3267edd6ee (diff) |
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
Diffstat (limited to 'library/global.mli')
-rw-r--r-- | library/global.mli | 15 |
1 files changed, 9 insertions, 6 deletions
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 |