From ba4289e55b376074bd782f6dc376a76e7efaec11 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Tue, 17 Jun 2014 17:55:00 +0200
Subject: Fix a destArity that does not exactly match isArity in presence of
 let-ins.

---
 kernel/indtypes.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index 014bfba295..6c072d2d4d 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -226,7 +226,7 @@ let typecheck_inductive env ctx mie =
          (* Arities (without params) are typed-checked here *)
          let arity, expltype = 
 	   if isArity ind.mind_entry_arity then
-	     let (ctx,s) = destArity ind.mind_entry_arity in
+	     let (ctx,s) = dest_arity env_params ind.mind_entry_arity in
 	       match s with
 	       | Type u when Univ.universe_level u = None ->
 	         (** We have an algebraic universe as the conclusion of the arity,
-- 
cgit v1.2.3