File: bug_6956.v

package info (click to toggle)
coq-doc 8.16.1-1
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm
  • size: 42,788 kB
  • sloc: ml: 219,673; sh: 4,035; python: 3,372; ansic: 2,529; makefile: 728; lisp: 279; javascript: 87; xml: 24; sed: 2
file content (13 lines) | stat: -rw-r--r-- 329 bytes parent folder | download | duplicates (7) 
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.