diff options
| author | herbelin | 2000-04-27 15:01:09 +0000 |
|---|---|---|
| committer | herbelin | 2000-04-27 15:01:09 +0000 |
| commit | eb6d5b6acaca83d13063f0d7fc414b4dbee6572e (patch) | |
| tree | c2e54f6f1c82026a91d15453868bb7ab0e8eb5cd /kernel/reduction.ml | |
| parent | b3a30395c85a34a6162fe884c7a06b1079e698c2 (diff) | |
Retrait fullmind de inductive_summary pour simplicité
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@376 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 3 |
1 files changed, 1 insertions, 2 deletions
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; |