summaryrefslogtreecommitdiff
path: root/tests/fstar
diff options
context:
space:
mode:
authorSon Ho2024-04-26 10:44:23 +0200
committerSon Ho2024-04-26 10:44:23 +0200
commitfe8d14cd8b7ba907d5248d574619e93e6d1d253a (patch)
tree1c5d0e4ee46f4af7bb4dca48c6c8ae10f603b123 /tests/fstar
parent192b0e492c07a8bc5900ba6ebe6eae36a7120a28 (diff)
Update the decreases clauses for the betree
Diffstat (limited to 'tests/fstar')
-rw-r--r--tests/fstar/betree/BetreeMain.Clauses.fst9
-rw-r--r--tests/fstar/betree_back_stateful/BetreeMain.Clauses.fst2
2 files changed, 3 insertions, 8 deletions
diff --git a/tests/fstar/betree/BetreeMain.Clauses.fst b/tests/fstar/betree/BetreeMain.Clauses.fst
index 8f62d66d..b95d4c7e 100644
--- a/tests/fstar/betree/BetreeMain.Clauses.fst
+++ b/tests/fstar/betree/BetreeMain.Clauses.fst
@@ -130,17 +130,12 @@ let betree_Node_lookup_first_message_for_key_decreases (key : u64)
(msgs : betree_List_t (u64 & betree_Message_t)) : betree_List_t (u64 & betree_Message_t) =
msgs
-let rec list_length (#a : Type0) (ls : betree_List_t a) : nat =
- match ls with
- | Betree_List_Cons _ ls -> 1 + list_length ls
- | Betree_List_Nil -> 0
-
(** [betree_main::betree::Node::{5}::apply_upserts]: decreases clause *)
unfold
let betree_Node_apply_upserts_decreases
(msgs : betree_List_t (u64 & betree_Message_t)) (prev : option u64)
- (key : u64) : nat =
- list_length msgs
+ (key : u64) : betree_List_t (u64 & betree_Message_t) =
+ msgs
(** [betree_main::betree::Internal::{4}::lookup_in_children]: decreases clause *)
unfold
diff --git a/tests/fstar/betree_back_stateful/BetreeMain.Clauses.fst b/tests/fstar/betree_back_stateful/BetreeMain.Clauses.fst
index ed5c5069..b95d4c7e 100644
--- a/tests/fstar/betree_back_stateful/BetreeMain.Clauses.fst
+++ b/tests/fstar/betree_back_stateful/BetreeMain.Clauses.fst
@@ -134,7 +134,7 @@ let betree_Node_lookup_first_message_for_key_decreases (key : u64)
unfold
let betree_Node_apply_upserts_decreases
(msgs : betree_List_t (u64 & betree_Message_t)) (prev : option u64)
- (key : u64) (st : state) : betree_List_t (u64 & betree_Message_t) =
+ (key : u64) : betree_List_t (u64 & betree_Message_t) =
msgs
(** [betree_main::betree::Internal::{4}::lookup_in_children]: decreases clause *)