diff options
| author | Son Ho | 2023-02-05 22:03:41 +0100 |
|---|---|---|
| committer | Son HO | 2023-06-04 21:44:33 +0200 |
| commit | c6913b8bf90689d8961c47f59896443e7fae164d (patch) | |
| tree | 3a2b61a3df49fef14c8ad558ff9630014a5c07e1 /tests/lean/hashmap | |
| parent | 9ec68c058a1829166fbb2511dedfbe0c2f94d6bc (diff) | |
Make sure let-bindings in Lean end with line breaks and improve formatting
Diffstat (limited to '')
| -rw-r--r-- | tests/lean/hashmap/Hashmap/Funs.lean | 6 | ||||
| -rw-r--r-- | tests/lean/hashmap_on_disk/HashmapMain/Funs.lean | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/tests/lean/hashmap/Hashmap/Funs.lean b/tests/lean/hashmap/Hashmap/Funs.lean index 1b03b7a2..78ed970a 100644 --- a/tests/lean/hashmap/Hashmap/Funs.lean +++ b/tests/lean/hashmap/Hashmap/Funs.lean @@ -5,7 +5,8 @@ import Hashmap.Types import Hashmap.Clauses.Clauses /- [hashmap::hash_key] -/ -def hash_key_fwd (k : USize) : result USize := result.ret k +def hash_key_fwd (k : USize) : result USize := + result.ret k /- [hashmap::HashMap::{0}::allocate_slots] -/ def hash_map_allocate_slots_loop_fwd @@ -119,7 +120,8 @@ def hash_map_insert_in_list_loop_back let tl0 <- hash_map_insert_in_list_loop_back T key value tl result.ret (list_t.ListCons ckey cvalue tl0) | list_t.ListNil => - let l := list_t.ListNil result.ret (list_t.ListCons key value l) + let l := list_t.ListNil + result.ret (list_t.ListCons key value l) termination_by hash_map_insert_in_list_loop_back key value ls => hash_map_insert_in_list_loop_terminates T key value ls diff --git a/tests/lean/hashmap_on_disk/HashmapMain/Funs.lean b/tests/lean/hashmap_on_disk/HashmapMain/Funs.lean index 2795ecfa..5b7d6f46 100644 --- a/tests/lean/hashmap_on_disk/HashmapMain/Funs.lean +++ b/tests/lean/hashmap_on_disk/HashmapMain/Funs.lean @@ -8,7 +8,8 @@ import HashmapMain.Clauses.Clauses section variable (opaque_defs: OpaqueDefs) /- [hashmap_main::hashmap::hash_key] -/ -def hashmap_hash_key_fwd (k : USize) : result USize := result.ret k +def hashmap_hash_key_fwd (k : USize) : result USize := + result.ret k /- [hashmap_main::hashmap::HashMap::{0}::allocate_slots] -/ def hashmap_hash_map_allocate_slots_loop_fwd @@ -638,7 +639,8 @@ def insert_on_disk_fwd result.ret (st1, ()) /- [hashmap_main::main] -/ -def main_fwd : result Unit := result.ret () +def main_fwd : result Unit := + result.ret () /- Unit test for [hashmap_main::main] -/ #assert (main_fwd = .ret ()) |