diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-21 20:05:56 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-21 20:05:56 +0000 |
| commit | 00df263febb97990d6c29a6aaf4504e059ebf68c (patch) | |
| tree | 7d0bd0de4b7005769514802e2b7c272ce5cab8c6 /kernel | |
| parent | 5ec47cbb80137eb2542d665056d1f1d2a5a82c9f (diff) | |
Variable inutilisée
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7914 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/inductive.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 06a3d5ecf..92b919c7e 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -171,7 +171,6 @@ let is_correct_arity env c pj ind mib mip params = let kelim = mip.mind_kelim in let arsign,s = get_arity mib mip params in let nodep_ar = it_mkProd_or_LetIn (mkSort s) arsign in - let nrealargs = mip.mind_nrealargs in let rec srec env pt t u = let pt' = whd_betadeltaiota env pt in let t' = whd_betadeltaiota env t in |