From 723c344d3e4cf7fdc2e4854ea7d55d140570424d Mon Sep 17 00:00:00 2001
From: filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 6 Nov 2000 16:43:51 +0000
Subject: nouveau discharge fait par le noyau; plus de recettes dans les corps
 des constantes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@807 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/cooking.mli | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 kernel/cooking.mli

(limited to 'kernel/cooking.mli')

diff --git a/kernel/cooking.mli b/kernel/cooking.mli
new file mode 100644
index 000000000..7d1bc3988
--- /dev/null
+++ b/kernel/cooking.mli
@@ -0,0 +1,32 @@
+
+(*i $Id$ i*)
+
+open Names
+open Term
+open Declarations
+open Environ
+
+(*s Cooking the constants. *)
+
+type modification_action = ABSTRACT | ERASE
+
+type 'a modification =
+  | NOT_OCCUR
+  | DO_ABSTRACT of 'a * modification_action list
+  | DO_REPLACE
+
+type work_alist = (global_reference * global_reference modification) list
+
+type recipe = {
+  d_from : section_path;
+  d_abstract : identifier list;
+  d_modlist : work_alist }
+
+val cook_constant : env -> recipe -> constr option * constr
+
+(*s Utility functions used in module [Discharge]. *)
+
+val expmod_constr : env -> work_alist -> constr -> constr
+val expmod_type : env -> work_alist -> types -> types
+
+
-- 
cgit v1.2.3