diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-28 14:23:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-08-29 17:24:31 +0200 |
| commit | 37b81fe10d2da12180d96d931ba2b76370e1eea5 (patch) | |
| tree | 60559a7e8894147a4fb4884d854d9efb4e404a5b /checker/cic.mli | |
| parent | 1974816aca996fe3ee9420b83f11d15923e70fda (diff) | |
Statically enforcing that module types have no retroknowledge.
Diffstat (limited to 'checker/cic.mli')
| -rw-r--r-- | checker/cic.mli | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/checker/cic.mli b/checker/cic.mli index 6724fa3f0..753fd0fc0 100644 --- a/checker/cic.mli +++ b/checker/cic.mli @@ -395,7 +395,7 @@ and 'a generic_module_body = mod_constraints : Univ.ContextSet.t; (** quotiented set of equivalent constants and inductive names *) mod_delta : delta_resolver; - mod_retroknowledge : action list } + mod_retroknowledge : 'a module_retroknowledge; } and module_body = module_implementation generic_module_body @@ -404,6 +404,11 @@ and module_body = module_implementation generic_module_body and module_type_body = unit generic_module_body +and _ module_retroknowledge = +| ModBodyRK : + action list -> module_implementation module_retroknowledge +| ModTypeRK : unit module_retroknowledge + (*************************************************************************) (** {4 From safe_typing.ml} *) |