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/indtypes.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'kernel/indtypes.ml')

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index 0988ae1972..b6a7c0a3e4 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -222,7 +222,7 @@ let is_recursive listind =
   in 
   array_exists one_is_rec
 
-let cci_inductive env env_ar kind nparams finite inds =
+let cci_inductive env env_ar kind nparams finite inds cst =
   let ntypes = List.length inds in
   let one_packet i (id,ar,cnames,issmall,isunit,lc) =
     let recargs = listrec_mconstr env_ar ntypes nparams i lc in
@@ -241,5 +241,6 @@ let cci_inductive env env_ar kind nparams finite inds =
     mind_ntypes = ntypes;
     mind_hyps = get_globals (context env);
     mind_packets = packets;
+    mind_constraints = cst;
     mind_singl = None;
     mind_nparams = nparams }
-- 
cgit v1.2.3