diff options
| author | coq | 2002-12-09 14:23:54 +0000 |
|---|---|---|
| committer | coq | 2002-12-09 14:23:54 +0000 |
| commit | 6da9a56628903d0bc2ab6a336af822f362517c4f (patch) | |
| tree | e0ae5f32406a7a777827371a0a5bfae45a735acb /kernel/declarations.mli | |
| parent | 5cabd686fcb61633d372b1414c5a3759136ed28d (diff) | |
Corrections de gestion des univers et modules + meilleure gestions des noms uniques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3405 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/declarations.mli')
| -rw-r--r-- | kernel/declarations.mli | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/kernel/declarations.mli b/kernel/declarations.mli index e37686c409..83ea8c713e 100644 --- a/kernel/declarations.mli +++ b/kernel/declarations.mli @@ -108,12 +108,16 @@ and module_expr_body = | MEBident of module_path | MEBfunctor of mod_bound_id * module_type_body * module_expr_body | MEBstruct of mod_self_id * module_structure_body - | MEBapply of module_expr_body * module_expr_body - * constraints + | MEBapply of module_expr_body * module_expr_body (* (F A) *) + * constraints (* type_of(A) <: input_type_of(F) *) and module_specification_body = - module_type_body * module_path option * constraints - + { msb_modtype : module_type_body; + msb_equiv : module_path option; + msb_constraints : constraints } + (* type_of(equiv) <: modtype (if given) + + substyping of past With_Module mergers *) + and structure_elem_body = | SEBconst of constant_body | SEBmind of mutual_inductive_body @@ -128,8 +132,8 @@ and module_body = mod_type : module_type_body; mod_equiv : module_path option; mod_constraints : constraints } - - + (* type_of(mod_expr) <: mod_user_type (if given) *) + (* if equiv given then constraints are empty *) |