diff options
| author | filliatr | 1999-09-27 07:26:40 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-27 07:26:40 +0000 |
| commit | a40bef71a163039ae36830d264ef4c599e8f9357 (patch) | |
| tree | cb481e51a10d9ca24d201c685cd3ee507bc9ee23 /kernel | |
| parent | 8400196955b62022e5fd0a747dde0232ec9ed1ab (diff) | |
ajout des constraintes pendant le chargement d'un module (load)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@81 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/typing.ml | 2 | ||||
| -rw-r--r-- | kernel/typing.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/kernel/typing.ml b/kernel/typing.ml index dfce2e4427..46fbbf17c4 100644 --- a/kernel/typing.ml +++ b/kernel/typing.ml @@ -415,6 +415,8 @@ let add_mind sp mie env = in add_mind sp mib (add_constraints cst env) +let add_constraints = add_constraints + let export = export let import = import diff --git a/kernel/typing.mli b/kernel/typing.mli index a960b78dd1..f93494a95b 100644 --- a/kernel/typing.mli +++ b/kernel/typing.mli @@ -36,6 +36,7 @@ val add_parameter : section_path -> constr -> 'a environment -> 'a environment val add_mind : section_path -> mutual_inductive_entry -> 'a environment -> 'a environment +val add_constraints : constraints -> 'a environment -> 'a environment val lookup_var : identifier -> 'a environment -> name * typed_type val lookup_rel : int -> 'a environment -> name * typed_type |