summaryrefslogtreecommitdiff
path: root/tests/coq/misc/Paper.v
diff options
context:
space:
mode:
authorSon Ho2022-11-14 09:27:24 +0100
committerSon HO2022-11-14 14:21:04 +0100
commit1af63cade04325eb32a62ca23125eea75810822f (patch)
tree3aa1a74d5f59a8c197154ea48e7cf0b8da3f0f68 /tests/coq/misc/Paper.v
parent3eba613a9ff9d5c265fbe2676f6bd324728d9ca4 (diff)
Improve the formatting of the generated code
Diffstat (limited to '')
-rw-r--r--tests/coq/misc/Paper.v10
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/coq/misc/Paper.v b/tests/coq/misc/Paper.v
index 5d9598eb..e15e0dc1 100644
--- a/tests/coq/misc/Paper.v
+++ b/tests/coq/misc/Paper.v
@@ -76,7 +76,8 @@ Fixpoint list_nth_mut_back
else
(
i0 <- u32_sub i 1 %u32;
- tl0 <- list_nth_mut_back T tl i0 ret; Return (ListCons x tl0) )
+ tl0 <- list_nth_mut_back T tl i0 ret;
+ Return (ListCons x tl0) )
| ListNil => Fail_
end
.
@@ -97,7 +98,8 @@ Definition test_nth_fwd : result unit :=
x <- list_nth_mut_fwd i32 (ListCons (1 %i32) l1) (2 %u32);
x0 <- i32_add x 1 %i32;
l2 <- list_nth_mut_back i32 (ListCons (1 %i32) l1) (2 %u32) x0;
- i <- sum_fwd l2; if negb (i s= 7 %i32) then Fail_ else Return tt
+ i <- sum_fwd l2;
+ if negb (i s= 7 %i32) then Fail_ else Return tt
.
(** Unit test for [paper::test_nth] *)
@@ -108,7 +110,9 @@ Definition call_choose_fwd (p : (u32 * u32)) : result u32 :=
let (px, py) := p in
pz <- choose_fwd u32 true px py;
pz0 <- u32_add pz 1 %u32;
- p0 <- choose_back u32 true px py pz0; let (px0, _) := p0 in Return px0
+ p0 <- choose_back u32 true px py pz0;
+ let (px0, _) := p0 in
+ Return px0
.
End Paper .