diff options
| author | Son Ho | 2024-06-14 10:41:06 +0200 |
|---|---|---|
| committer | Son Ho | 2024-06-17 06:34:07 +0200 |
| commit | 4a34537a7fe33fa33d618b153832f9e750276480 (patch) | |
| tree | 2817a4de8be9a6d16c5cee26d5e931d44b4751e9 /tests/fstar/hashmap/Hashmap.Clauses.fst | |
| parent | 007c9024c0c3b549049a55243b391ae2337ad616 (diff) | |
Update the code of the hashmap
Diffstat (limited to '')
| -rw-r--r-- | tests/fstar/hashmap/Hashmap.Clauses.fst | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/tests/fstar/hashmap/Hashmap.Clauses.fst b/tests/fstar/hashmap/Hashmap.Clauses.fst index 6c699d05..3a389b94 100644 --- a/tests/fstar/hashmap/Hashmap.Clauses.fst +++ b/tests/fstar/hashmap/Hashmap.Clauses.fst @@ -9,53 +9,53 @@ open Hashmap.Types (** [hashmap::HashMap::allocate_slots]: decreases clause *) unfold let hashMap_allocate_slots_loop_decreases (t : Type0) - (slots : alloc_vec_Vec (list_t t)) (n : usize) : nat = n + (slots : alloc_vec_Vec (aList_t t)) (n : usize) : nat = n (** [hashmap::HashMap::clear]: decreases clause *) unfold -let hashMap_clear_loop_decreases (t : Type0) (slots : alloc_vec_Vec (list_t t)) +let hashMap_clear_loop_decreases (t : Type0) (slots : alloc_vec_Vec (aList_t t)) (i : usize) : nat = if i < length slots then length slots - i else 0 (** [hashmap::HashMap::insert_in_list]: decreases clause *) unfold let hashMap_insert_in_list_loop_decreases (t : Type0) (key : usize) (value : t) - (ls : list_t t) : list_t t = + (ls : aList_t t) : aList_t t = ls (** [hashmap::HashMap::move_elements_from_list]: decreases clause *) unfold let hashMap_move_elements_from_list_loop_decreases (t : Type0) - (ntable : hashMap_t t) (ls : list_t t) : list_t t = + (ntable : hashMap_t t) (ls : aList_t t) : aList_t t = ls (** [hashmap::HashMap::move_elements]: decreases clause *) unfold let hashMap_move_elements_loop_decreases (t : Type0) (ntable : hashMap_t t) - (slots : alloc_vec_Vec (list_t t)) (i : usize) : nat = + (slots : alloc_vec_Vec (aList_t t)) (i : usize) : nat = if i < length slots then length slots - i else 0 (** [hashmap::HashMap::contains_key_in_list]: decreases clause *) unfold let hashMap_contains_key_in_list_loop_decreases (t : Type0) (key : usize) - (ls : list_t t) : list_t t = + (ls : aList_t t) : aList_t t = ls (** [hashmap::HashMap::get_in_list]: decreases clause *) unfold -let hashMap_get_in_list_loop_decreases (t : Type0) (key : usize) (ls : list_t t) : - list_t t = +let hashMap_get_in_list_loop_decreases (t : Type0) (key : usize) (ls : aList_t t) : + aList_t t = ls (** [hashmap::HashMap::get_mut_in_list]: decreases clause *) unfold -let hashMap_get_mut_in_list_loop_decreases (t : Type0) (ls : list_t t) - (key : usize) : list_t t = +let hashMap_get_mut_in_list_loop_decreases (t : Type0) (ls : aList_t t) + (key : usize) : aList_t t = ls (** [hashmap::HashMap::remove_from_list]: decreases clause *) unfold let hashMap_remove_from_list_loop_decreases (t : Type0) (key : usize) - (ls : list_t t) : list_t t = + (ls : aList_t t) : aList_t t = ls |