ensembles de contraintes d'univers

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@78 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 0 deletions

diff --git a/kernel/inductive.mli b/kernel/inductive.mli
index d0dee30b92..cd23920cf6 100644
--- a/kernel/inductive.mli
+++ b/kernel/inductive.mli
@@ -3,6 +3,7 @@
 
 (*i*)
 open Names
+open Univ
 open Term
 open Sign
 (*i*)
@@ -29,6 +30,7 @@ type mutual_inductive_body = {
   mind_ntypes : int;
   mind_hyps : typed_type signature;
   mind_packets : mutual_inductive_packet array;
+  mind_constraints : constraints;
   mind_singl : constr option;
   mind_nparams : int }