diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/inductive.ml | 1 | ||||
| -rw-r--r-- | kernel/inductive.mli | 5 | ||||
| -rw-r--r-- | kernel/reduction.ml | 3 |
3 files changed, 3 insertions, 6 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 9a59a889b4..16c6b6c773 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -64,7 +64,6 @@ type constructor_summary = { (* A light version of mind_specif_of_mind with pre-splitted args *) (* and a receipt to build a summary of constructors *) type inductive_summary = { - fullmind : constr; mind : inductive; params : constr list; realargs : constr list; diff --git a/kernel/inductive.mli b/kernel/inductive.mli index c5520cf493..8c431c319f 100644 --- a/kernel/inductive.mli +++ b/kernel/inductive.mli @@ -89,14 +89,13 @@ type constructor_summary = { (*s A variant of [mind_specif_of_mind] with pre-splitted args - Invariant: We have \par - [Hnf (fullmind)] = [DOPN(AppL,[|MutInd mind;..params..;..realargs..|])] \par + We recover the inductive type as \par + [DOPN(AppL,[|MutInd mind;..params..;..realargs..|])] \par with [mind] = [((sp,i),localvars)] for some [sp, i, localvars]. *) type inductive_summary = { - fullmind : constr; mind : inductive; params : constr list; realargs : constr list; diff --git a/kernel/reduction.ml b/kernel/reduction.ml index caf667dae6..eb84a2a0f3 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -1159,8 +1159,7 @@ let try_mutind_of env sigma ty = let (params,realargs) = list_chop nparams largs in let nconstr = mis_nconstr mispec in let hyps = mispec.mis_mib.mind_hyps in - { fullmind = ty; - mind = mind; + { mind = mind; params = params; realargs = realargs; nparams = nparams; |