test-suite/failure/Case6.v


1
2
3
4
5
6
7
8
9
10

Inductive List [A:Set] :Set := 
 Nil:(List A) | Cons:A->(List A)->(List A).


Type <(List nat)>Cases (Nil nat) of 
                NIL   => NIL
              | (CONS _ _)  => NIL

              end.