diff options
| author | Son Ho | 2024-04-26 10:33:52 +0200 |
|---|---|---|
| committer | Son Ho | 2024-04-26 10:34:16 +0200 |
| commit | 192b0e492c07a8bc5900ba6ebe6eae36a7120a28 (patch) | |
| tree | b608e33b3b11347dc0d6bfed0ee8a324d3e31ae6 | |
| parent | 518fa3f104d6b98528873d4bf37e182ee1bbe69d (diff) | |
Update the F* clauses for the betree
| -rw-r--r-- | tests/fstar/betree/BetreeMain.Clauses.fst | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/fstar/betree/BetreeMain.Clauses.fst b/tests/fstar/betree/BetreeMain.Clauses.fst index fcef89ed..8f62d66d 100644 --- a/tests/fstar/betree/BetreeMain.Clauses.fst +++ b/tests/fstar/betree/BetreeMain.Clauses.fst @@ -130,7 +130,6 @@ 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 @@ -140,7 +139,7 @@ let rec list_length (#a : Type0) (ls : betree_List_t a) : nat = unfold let betree_Node_apply_upserts_decreases (msgs : betree_List_t (u64 & betree_Message_t)) (prev : option u64) - (key : u64) : betree_List_t (u64 & betree_Message_t) = + (key : u64) : nat = list_length msgs (** [betree_main::betree::Internal::{4}::lookup_in_children]: decreases clause *) |