diff options
| author | letouzey | 2010-01-17 13:31:10 +0000 |
|---|---|---|
| committer | letouzey | 2010-01-17 13:31:10 +0000 |
| commit | 77b71db8470553aed0476827ec2e39aed0cbb6ed (patch) | |
| tree | 78503d2a9bae305bbb5b3184a255346107d39ce3 /kernel/mod_typing.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 'kernel/mod_typing.mli')
| -rw-r--r-- | kernel/mod_typing.mli | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/mod_typing.mli b/kernel/mod_typing.mli index 746a80e151..63f7696c48 100644 --- a/kernel/mod_typing.mli +++ b/kernel/mod_typing.mli @@ -17,20 +17,20 @@ open Names (*i*) -val translate_module : env -> module_path -> module_entry +val translate_module : env -> module_path -> bool -> module_entry -> module_body -val translate_module_type : env -> module_path -> module_struct_entry -> +val translate_module_type : env -> module_path -> bool -> module_struct_entry -> module_type_body -val translate_struct_module_entry : env -> module_path -> module_struct_entry -> +val translate_struct_module_entry : env -> module_path -> bool -> module_struct_entry -> struct_expr_body * struct_expr_body * delta_resolver * Univ.constraints -val translate_struct_type_entry : env -> module_struct_entry -> +val translate_struct_type_entry : env -> bool -> module_struct_entry -> struct_expr_body * struct_expr_body option * delta_resolver * module_path * Univ.constraints val translate_struct_include_module_entry : env -> module_path - -> module_struct_entry -> struct_expr_body * delta_resolver * Univ.constraints + -> bool -> module_struct_entry -> struct_expr_body * delta_resolver * Univ.constraints val add_modtype_constraints : env -> module_type_body -> env |