diff options
author | Son Ho | 2022-12-17 12:55:40 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | acdfede396a36723258e0a6d7b264cec9ca99672 (patch) | |
tree | 9ac729846efb96491bb35e03aca7d8796f50285d /tests/coq/misc/PoloniusList.v | |
parent | 01a95c7da8cc0c937d94e6a9bc753d2ceb163c17 (diff) |
Regenerate the files
Diffstat (limited to 'tests/coq/misc/PoloniusList.v')
-rw-r--r-- | tests/coq/misc/PoloniusList.v | 4 |
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 . |