diff options
| author | Matthieu Sozeau | 2014-06-17 17:55:00 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-17 17:55:00 +0200 |
| commit | ba4289e55b376074bd782f6dc376a76e7efaec11 (patch) | |
| tree | 25deb7a225eaaece366ea29d982933816103297d | |
| parent | 258cbd1d2619cc5916dd570b95050e37c06fba77 (diff) | |
Fix a destArity that does not exactly match isArity in presence of let-ins.
| -rw-r--r-- | kernel/indtypes.ml | 2 | ||||
| -rw-r--r-- | test-suite/bugs/closed/HoTT_coq_115.v | 1 | ||||
| -rw-r--r-- | test-suite/bugs/opened/HoTT_coq_115.v | 1 |
3 files changed, 2 insertions, 2 deletions
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. *) |