diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-18 22:17:50 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-18 22:17:50 +0000 |
| commit | 7b2a24d0beee17b61281a5c64fca5cf7388479d3 (patch) | |
| tree | 7df42aa9ea5cf3e5ae6066c0aa73673cd67bc19d /kernel/cooking.mli | |
| parent | 8c417a6d32e379d9642d6f2ef144f33d7df4832e (diff) | |
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
Diffstat (limited to 'kernel/cooking.mli')
| -rw-r--r-- | kernel/cooking.mli | 16 |
1 files changed, 5 insertions, 11 deletions
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 + |