diff options
| author | herbelin | 2000-10-18 14:37:44 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-18 14:37:44 +0000 |
| commit | bedaec8452d0600ede52efeeac016c9d323c66de (patch) | |
| tree | 7f056ffcd58f58167a0e813d5a8449eb950a8e23 /kernel/safe_typing.mli | |
| parent | 9983a5754258f74293b77046986b698037902e2b (diff) | |
Renommage canonique :
declaration = definition | assumption
mode de reference = named | rel
Ex:
push_named_decl : named_declaration -> env -> env
lookup_named : identifier -> safe_environment -> constr option * typed_type
add_named_assum : identifier * typed_type -> named_context -> named_context
add_named_def : identifier*constr*typed_type -> named_context -> named_context
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@723 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.mli')
| -rw-r--r-- | kernel/safe_typing.mli | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index 577f753d37..a07be1fca6 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -24,14 +24,12 @@ val empty_environment : safe_environment val universes : safe_environment -> universes val context : safe_environment -> context -val var_context : safe_environment -> var_context +val named_context : safe_environment -> named_context -val push_var_decl : identifier * constr -> safe_environment -> safe_environment -val push_var_def : identifier * constr -> safe_environment -> safe_environment -(*i -val push_rel_decl : name * constr -> safe_environment -> safe_environment -val push_rel_def : name * constr -> safe_environment -> safe_environment -i*) +val push_named_assum : + identifier * constr -> safe_environment -> safe_environment +val push_named_def : + identifier * constr -> safe_environment -> safe_environment val add_constant : section_path -> constant_entry -> safe_environment -> safe_environment @@ -45,9 +43,9 @@ val add_mind : -> safe_environment val add_constraints : constraints -> safe_environment -> safe_environment -val pop_vars : identifier list -> safe_environment -> safe_environment +val pop_named_decls : identifier list -> safe_environment -> safe_environment -val lookup_var : identifier -> safe_environment -> constr option * typed_type +val lookup_named : identifier -> safe_environment -> constr option * typed_type (*i val lookup_rel : int -> safe_environment -> name * typed_type i*) |