Imported Upstream version 8.0pl3+8.1alphaupstream/8.0pl3+8.1alpha

1 files changed, 8 insertions, 7 deletions

diff --git a/test-suite/failure/Case14.v b/test-suite/failure/Case14.v
index a198d068..ba0c51a1 100644
--- a/test-suite/failure/Case14.v
+++ b/test-suite/failure/Case14.v
@@ -1,8 +1,9 @@
-Inductive List [A:Set] :Set := 
- Nil:(List A) | Cons:A->(List A)->(List A).
+Inductive List (A : Set) : Set :=
+  | Nil : List A
+  | Cons : A -> List A -> List A.
 
-Definition NIL := (Nil nat).
-Type <(List nat)>Cases (Nil nat) of 
-                NIL   => NIL
-              |  _    => NIL
-              end.
+Definition NIL := Nil nat.
+Type match Nil nat return (List nat) with
+     | NIL => NIL
+     | _ => NIL
+     end.