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

1 files changed, 6 insertions, 5 deletions

diff --git a/test-suite/success/Case16.v b/test-suite/success/Case16.v
index 3f142fae..77016bbf 100644
--- a/test-suite/success/Case16.v
+++ b/test-suite/success/Case16.v
@@ -2,8 +2,9 @@
 (* Test dependencies in constructors                                  *)
 (**********************************************************************)
 
-Check [x : {b:bool|if b then True else False}]
-   <[x]let (b,_) = x in if b then True else False>Cases x of
-   | (exist true y)  => y
-   | (exist false z) => z
-   end.
+Check
+  (fun x : {b : bool | if b then True else False} =>
+   match x return (let (b, _) := x in if b then True else False) with
+   | exist true y => y
+   | exist false z => z
+   end).