1 files changed, 9 insertions, 7 deletions
diff --git a/test-suite/failure/Case16.v b/test-suite/failure/Case16.v
index f994a8f2..3739adae 100644
--- a/test-suite/failure/Case16.v
+++ b/test-suite/failure/Case16.v
@@ -1,9 +1,11 @@
 (* Check for redundant clauses *)
 
-Check [x]Cases x x of
-   O (S (S y)) => true
- | (S _) (S (S y)) => true
- | _ (S (S x)) => false 
- | (S y) O => true 
- | _ _ => true
-end.
+Check
+  (fun x =>
+   match x, x with
+   | O, S (S y) => true
+   | S _, S (S y) => true
+   | _, S (S x) => false
+   | S y, O => true
+   | _, _ => true
+   end).