diff options
Diffstat (limited to 'kernel/inductive.ml')
| -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 |