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, 1 deletions

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index 0988ae197..b6a7c0a3e 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 }