diff options
author | Son Ho | 2022-11-14 09:06:15 +0100 |
---|---|---|
committer | Son HO | 2022-11-14 14:21:04 +0100 |
commit | 3eba613a9ff9d5c265fbe2676f6bd324728d9ca4 (patch) | |
tree | eeac1d917f398906ab4aeaa3627561d980f0492a /tests | |
parent | 2a0ecfbef81231a394df71817a4cd9e81582b7de (diff) |
Implement a pass to decompose nested patterns in let-bindings
Diffstat (limited to 'tests')
-rw-r--r-- | tests/coq/misc/External__Funs.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/coq/misc/External__Funs.v b/tests/coq/misc/External__Funs.v index df35f7eb..021acd6e 100644 --- a/tests/coq/misc/External__Funs.v +++ b/tests/coq/misc/External__Funs.v @@ -84,7 +84,7 @@ Definition test_custom_swap_back result (state * (u32 * u32)) := p <- custom_swap_back u32 x y st (1 %u32) st0; - let (st1, (x0, y0)) := p in Return (st1, (x0, y0)) + let (st1, p0) := p in let (x0, y0) := p0 in Return (st1, (x0, y0)) . (** [external::test_swap_non_zero] *) @@ -93,7 +93,8 @@ Definition test_swap_non_zero_fwd p <- swap_fwd u32 x (0 %u32) st; let (st0, _) := p in p0 <- swap_back u32 x (0 %u32) st st0; - let (st1, (x0, _)) := p0 in if x0 s= 0 %u32 then Fail_ else Return (st1, x0) + let (st1, p1) := p0 in + let (x0, _) := p1 in if x0 s= 0 %u32 then Fail_ else Return (st1, x0) . End External__Funs . |