diff options
| author | herbelin | 2001-02-14 15:41:55 +0000 |
|---|---|---|
| committer | herbelin | 2001-02-14 15:41:55 +0000 |
| commit | e7d592ada2d681876d2bcf0a45d4267b3746064f (patch) | |
| tree | e0b7eb1e67b1871b7cb356c33f66182f6dde86c3 /kernel/safe_typing.mli | |
| parent | 045c85f66a65c6aaedeed578d352c6de27d5e6a4 (diff) | |
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
Diffstat (limited to 'kernel/safe_typing.mli')
| -rw-r--r-- | kernel/safe_typing.mli | 11 |
1 files changed, 7 insertions, 4 deletions
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 |