1 files changed, 8 insertions, 10 deletions
diff --git a/test-suite/failure/Case6.v b/test-suite/failure/Case6.v
index f588d275..fb8659bf 100644
--- a/test-suite/failure/Case6.v
+++ b/test-suite/failure/Case6.v
@@ -1,10 +1,8 @@
-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.
-
+Inductive List (A : Set) : Set :=
+  | Nil : List A
+  | Cons : A -> List A -> List A.
+
+Type (match Nil nat return List nat with
+      | NIL   => NIL
+      | (CONS _ _)  => NIL
+      end).