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 +-
 test-suite/bugs/closed/HoTT_coq_115.v | 1 +
 test-suite/bugs/opened/HoTT_coq_115.v | 1 -
 3 files changed, 2 insertions(+), 2 deletions(-)
 create mode 100644 test-suite/bugs/closed/HoTT_coq_115.v
 delete mode 100644 test-suite/bugs/opened/HoTT_coq_115.v

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,
diff --git a/test-suite/bugs/closed/HoTT_coq_115.v b/test-suite/bugs/closed/HoTT_coq_115.v
new file mode 100644
index 0000000000..c1e133eeb2
--- /dev/null
+++ b/test-suite/bugs/closed/HoTT_coq_115.v
@@ -0,0 +1 @@
+Inductive T : let U := Type in U := t. (* Anomaly: not an arity. Please report. *)
diff --git a/test-suite/bugs/opened/HoTT_coq_115.v b/test-suite/bugs/opened/HoTT_coq_115.v
deleted file mode 100644
index 0a7cca31a4..0000000000
--- a/test-suite/bugs/opened/HoTT_coq_115.v
+++ /dev/null
@@ -1 +0,0 @@
-Fail Inductive T : let U := Type in U := t. (* Anomaly: not an arity. Please report. *)
-- 
cgit v1.2.3