From a40bef71a163039ae36830d264ef4c599e8f9357 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 27 Sep 1999 07:26:40 +0000
Subject: 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
---
 kernel/typing.ml  | 2 ++
 kernel/typing.mli | 1 +
 2 files changed, 3 insertions(+)

(limited to 'kernel')

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
-- 
cgit v1.2.3