diff options
| author | Son Ho | 2024-03-20 06:17:41 +0100 |
|---|---|---|
| committer | Son Ho | 2024-03-20 06:17:41 +0100 |
| commit | 5e99d127e0a746f5779779756fccf79f15c19d10 (patch) | |
| tree | 6d10d613179568346e19cbc6bf95c6dd6897f574 /tests/coq/misc/External_Funs.v | |
| parent | e6f002cfc1dfa41362bbb3a005c4261d09c52c58 (diff) | |
Regenerate the code
Diffstat (limited to 'tests/coq/misc/External_Funs.v')
| -rw-r--r-- | tests/coq/misc/External_Funs.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/coq/misc/External_Funs.v b/tests/coq/misc/External_Funs.v index 91ea88c9..faf91fef 100644 --- a/tests/coq/misc/External_Funs.v +++ b/tests/coq/misc/External_Funs.v @@ -45,9 +45,9 @@ Definition custom_swap := p <- core_mem_swap T x y st; let (st1, p1) := p in - let (t, t1) := p1 in - let back_'a := fun (ret : T) (st2 : state) => Return (st2, (ret, t1)) in - Return (st1, (t, back_'a)) + let (x1, y1) := p1 in + let back_'a := fun (ret : T) (st2 : state) => Return (st2, (ret, y1)) in + Return (st1, (x1, back_'a)) . (** [external::test_custom_swap]: |