1 files changed, 7 insertions, 7 deletions
diff --git a/test-suite/failure/Case8.v b/test-suite/failure/Case8.v
index 7f6bb615..feae29a7 100644
--- a/test-suite/failure/Case8.v
+++ b/test-suite/failure/Case8.v
@@ -1,8 +1,8 @@
-Inductive List [A:Set] :Set := 
- Nil:(List A) | Cons:A->(List A)->(List A).
-
-Type <nat>Cases (Nil nat) of 
-                             ((Nil_) as b) =>b
-                            |((Cons _ _ _) as d) => d
-                      end.
+Inductive List (A : Set) : Set :=
+  | Nil : List A
+  | Cons : A -> List A -> List A.
 
+Type match Nil nat return nat with
+     | b => b
+     | Cons _ _ _ as d => d
+     end.