blob: ee21adbbfd9caab46ff937832b9efe58a792828f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(** Used to trigger an anomaly with VM compilation *)
Set Universe Polymorphism.
Inductive t A : nat -> Type :=
| nil : t A 0
| cons : forall (h : A) (n : nat), t A n -> t A (S n).
Definition case0 {A} (P : t A 0 -> Type) (H : P (nil A)) v : P v :=
match v with
| nil _ => H
| _ => fun devil => False_ind (@IDProp) devil
end.
|