From e7d592ada2d681876d2bcf0a45d4267b3746064f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 14 Feb 2001 15:41:55 +0000
Subject: Mise en place d'un système optionnel de discharge immédiat; prise en
 compte des défs locales dans les arguments des inductifs; nettoyage divers

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1381 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/safe_typing.mli | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'kernel/safe_typing.mli')

diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli
index 7f50c71040..474da34b84 100644
--- a/kernel/safe_typing.mli
+++ b/kernel/safe_typing.mli
@@ -31,15 +31,18 @@ val push_named_assum :
 val push_named_def :
   identifier * constr -> safe_environment -> safe_environment
 
+type local_names = (identifier * variable_path) list
+
 val add_parameter :
-  section_path -> constr -> safe_environment -> safe_environment
+  section_path -> constr -> local_names -> safe_environment -> safe_environment
 val add_constant : 
-  section_path -> constant_entry -> safe_environment -> safe_environment
+  section_path -> constant_entry -> local_names -> 
+    safe_environment -> safe_environment
 val add_discharged_constant : 
-  section_path -> Cooking.recipe -> safe_environment -> safe_environment
+  section_path -> Cooking.recipe -> local_names -> safe_environment -> safe_environment
 
 val add_mind : 
-  section_path -> mutual_inductive_entry -> safe_environment 
+  section_path -> mutual_inductive_entry -> local_names -> safe_environment 
     -> safe_environment
 val add_constraints : constraints -> safe_environment -> safe_environment
 
-- 
cgit v1.2.3