diff options
| author | Gaëtan Gilbert | 2019-11-05 15:06:23 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-11-05 15:38:43 +0100 |
| commit | fea52cee63b678dfda766a0a63435c134d28d77c (patch) | |
| tree | 95933faa1bf07913b1609ec2af646444d315e033 /test-suite/bugs | |
| parent | 634cb7b8a07a34fc29d074591091f0a6170f7bff (diff) | |
Fix #11048: uncaught destKO in inductive type
Reduction.whd_all does not commute with to_constr.
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/bug_11048.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_11048.v b/test-suite/bugs/closed/bug_11048.v new file mode 100644 index 0000000000..d1211587f1 --- /dev/null +++ b/test-suite/bugs/closed/bug_11048.v @@ -0,0 +1,5 @@ + +Inductive foo (HUGE := _) (b : HUGE) A := + bar (X:match _ : HUGE as T return HUGE with T => match (A : T) -> True with _ => T end end) + : foo b A. +(* uncaught destKO *) |