From 37b81fe10d2da12180d96d931ba2b76370e1eea5 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Fri, 28 Jul 2017 14:23:37 +0200 Subject: Statically enforcing that module types have no retroknowledge. --- checker/cic.mli | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'checker/cic.mli') 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} *) -- cgit v1.2.3