From 9084393008d9cd2a1f36391e06f6a73cbc529a16 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Sat, 25 Sep 1999 14:33:49 +0000
Subject: ensembles de contraintes d'univers

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@78 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/inductive.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 5617358a18..4034d97124 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 }
 
-- 
cgit v1.2.3