diff options
| author | filliatr | 1999-08-26 16:26:54 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-26 16:26:54 +0000 |
| commit | dd279791aca531cd0f38ce79b675c68e08a4ff63 (patch) | |
| tree | 32115bf156935bcb902d50fe3222e818ed692a1f /kernel/inductive.ml | |
| parent | 15ed739c91a22e91ae88d54215f6862fc1074a88 (diff) | |
environnement sur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@28 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 |