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