summaryrefslogtreecommitdiff
path: root/tests/coq/misc/PoloniusList.v
diff options
context:
space:
mode:
authorSon Ho2022-12-17 12:55:40 +0100
committerSon HO2023-02-03 11:21:46 +0100
commitacdfede396a36723258e0a6d7b264cec9ca99672 (patch)
tree9ac729846efb96491bb35e03aca7d8796f50285d /tests/coq/misc/PoloniusList.v
parent01a95c7da8cc0c937d94e6a9bc753d2ceb163c17 (diff)
Regenerate the files
Diffstat (limited to 'tests/coq/misc/PoloniusList.v')
-rw-r--r--tests/coq/misc/PoloniusList.v4
1 files changed, 1 insertions, 3 deletions
diff --git a/tests/coq/misc/PoloniusList.v b/tests/coq/misc/PoloniusList.v
index a45c77c5..bd6df02e 100644
--- a/tests/coq/misc/PoloniusList.v
+++ b/tests/coq/misc/PoloniusList.v
@@ -19,9 +19,7 @@ Arguments ListNil {T}.
Fixpoint get_list_at_x_fwd (ls : List_t u32) (x : u32) : result (List_t u32) :=
match ls with
| ListCons hd tl =>
- if hd s= x
- then Return (ListCons hd tl)
- else (l <- get_list_at_x_fwd tl x; Return l)
+ if hd s= x then Return (ListCons hd tl) else get_list_at_x_fwd tl x
| ListNil => Return ListNil
end
.