From 192b0e492c07a8bc5900ba6ebe6eae36a7120a28 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 26 Apr 2024 10:33:52 +0200
Subject: Update the F* clauses for the betree

---
 tests/fstar/betree/BetreeMain.Clauses.fst | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'tests')

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 *)
-- 
cgit v1.2.3