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.ml b/kernel/inductive.ml
index 5617358a1..4034d9712 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -3,6 +3,7 @@
 
 open Util
 open Names
+open Univ
 open Generic
 open Term
 open Sign
@@ -27,6 +28,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 }