From dd279791aca531cd0f38ce79b675c68e08a4ff63 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 26 Aug 1999 16:26:54 +0000
Subject: environnement sur

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

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 2aedc8dfd0..cb4b3f6556 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -31,7 +31,9 @@ type mutual_inductive_body = {
   mind_singl : constr option;
   mind_nparams : int }
 
-type mutual_inductive_entry = section_path * mutual_inductive_body
+type mutual_inductive_entry = {
+  mind_entry_params : (identifier * constr) list;
+  mind_entry_inds : (identifier * constr * (identifier * constr) list) list }
 
 let mind_type_finite mib i = mib.mind_packets.(i).mind_finite
 
-- 
cgit v1.2.3