From 7b2a24d0beee17b61281a5c64fca5cf7388479d3 Mon Sep 17 00:00:00 2001 From: herbelin Date: Fri, 18 Feb 2005 22:17:50 +0000 Subject: Moving centralised discharge into dispatched discharge_function; required to delay some computation from before to after caching time + various simplifications and uniformisations git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6748 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/cooking.mli | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) (limited to 'kernel/cooking.mli') diff --git a/kernel/cooking.mli b/kernel/cooking.mli index 289373eff..2e7a3639a 100644 --- a/kernel/cooking.mli +++ b/kernel/cooking.mli @@ -16,19 +16,11 @@ open Univ (*s Cooking the constants. *) -type 'a modification = - | NOT_OCCUR - | DO_ABSTRACT of 'a * constr array - | DO_REPLACE of constant_body - -type work_list = - (constant * constant modification) list - * (inductive * inductive modification) list - * (constructor * constructor modification) list +type work_list = identifier array Cmap.t * identifier array KNmap.t type recipe = { d_from : constant_body; - d_abstract : identifier list; + d_abstract : Sign.named_context; d_modlist : work_list } val cook_constant : @@ -38,6 +30,8 @@ val cook_constant : (*s Utility functions used in module [Discharge]. *) val expmod_constr : work_list -> constr -> constr -val expmod_type : work_list -> types -> types + +val clear_cooking_sharing : unit -> unit + -- cgit v1.2.3