diff options
| author | herbelin | 2000-10-06 16:08:20 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-06 16:08:20 +0000 |
| commit | 970b4b750486ad8544b5d0a3b2246282690e6c98 (patch) | |
| tree | d8aeeee6133883547e7e30246fcc544e32ae9746 /kernel/declarations.ml | |
| parent | ca91e3c69ba2dfed3f8fd24f721873f5d0cd2004 (diff) | |
Correction incompatibilites dans la fn des types des inductifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@673 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 9c6ffb1725..c09254c2ca 100644 --- a/kernel/declarations.ml +++ b/kernel/declarations.ml @@ -50,8 +50,8 @@ type one_inductive_body = { mind_nf_lc : typed_type array; mind_nf_arity : typed_type; (* lc and arity as given by user if not in nf; useful e.g. for Ensemble.v *) - mind_user_lc : constr array option; - mind_user_arity : constr option; + mind_user_lc : typed_type array option; + mind_user_arity : typed_type option; mind_sort : sorts; mind_nrealargs : int; mind_kelim : sorts list; @@ -70,11 +70,11 @@ type mutual_inductive_body = { let mind_type_finite mib i = mib.mind_packets.(i).mind_finite let mind_user_lc mip = match mip.mind_user_lc with - | None -> Array.map body_of_type mip.mind_nf_lc + | None -> mip.mind_nf_lc | Some lc -> lc let mind_user_arity mip = match mip.mind_user_arity with - | None -> body_of_type mip.mind_nf_arity + | None -> mip.mind_nf_arity | Some a -> a (*s Declaration. *) |