diff options
| author | Son HO | 2024-03-20 06:48:08 +0100 |
|---|---|---|
| committer | GitHub | 2024-03-20 06:48:08 +0100 |
| commit | 0d52c3fe35d0b24de729bdfb917ad6c7104d0c6e (patch) | |
| tree | 7748d3c19a0993edc710690491a2dc6ea3a2b58f /tests/lean/External/Funs.lean | |
| parent | 8111c970fcae9d609961eba2ad6716e8c9fc1046 (diff) | |
| parent | 34850eed3c66f7f2c432294e4c589be53ad5d37b (diff) | |
Merge pull request #93 from AeneasVerif/son/examples
Add some examples and improve the shape of the generated code
Diffstat (limited to 'tests/lean/External/Funs.lean')
| -rw-r--r-- | tests/lean/External/Funs.lean | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/lean/External/Funs.lean b/tests/lean/External/Funs.lean index db15aacc..8b645037 100644 --- a/tests/lean/External/Funs.lean +++ b/tests/lean/External/Funs.lean @@ -38,9 +38,9 @@ def custom_swap Result (State × (T × (T → State → Result (State × (T × T))))) := do - let (st1, (t, t1)) ← core.mem.swap T x y st - let back_'a := fun ret st2 => Result.ret (st2, (ret, t1)) - Result.ret (st1, (t, back_'a)) + let (st1, (x1, y1)) ← core.mem.swap T x y st + let back_'a := fun ret st2 => Result.ret (st2, (ret, y1)) + Result.ret (st1, (x1, back_'a)) /- [external::test_custom_swap]: Source: 'src/external.rs', lines 29:0-29:59 -/ |