diff options
| author | herbelin | 2000-05-31 11:43:21 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-31 11:43:21 +0000 |
| commit | a6974254f3c46683d93ced625430d0fef26bebe5 (patch) | |
| tree | 48a2f915d6766a81c0ee74cd073fb45eb49ad373 /kernel/declarations.ml | |
| parent | a87fc0236aa3dd9135ff75a890ba8f5c0a05a419 (diff) | |
Nettoyage de Generic;Suppression des DLAM en tête des listes de constructeurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@480 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/declarations.ml')
| -rw-r--r-- | kernel/declarations.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/declarations.ml b/kernel/declarations.ml index 7f45aae570..d97bb916bb 100644 --- a/kernel/declarations.ml +++ b/kernel/declarations.ml @@ -44,10 +44,10 @@ type recarg = | Mrec of int | Imbr of inductive_path * recarg list -type mutual_inductive_packet = { +type one_inductive_body = { mind_consnames : identifier array; mind_typename : identifier; - mind_lc : constr; + mind_lc : constr array; mind_arity : typed_type; mind_sort : sorts; mind_nrealargs : int; @@ -59,7 +59,7 @@ type mutual_inductive_body = { mind_kind : path_kind; mind_ntypes : int; mind_hyps : typed_type signature; - mind_packets : mutual_inductive_packet array; + mind_packets : one_inductive_body array; mind_constraints : constraints; mind_singl : constr option; mind_nparams : int } @@ -71,6 +71,6 @@ let mind_type_finite mib i = mib.mind_packets.(i).mind_finite type mutual_inductive_entry = { mind_entry_nparams : int; mind_entry_finite : bool; - mind_entry_inds : (identifier * constr * identifier list * constr) list } + mind_entry_inds : (identifier * constr * identifier list * constr list) list} let mind_nth_type_packet mib n = mib.mind_packets.(n) |