Merge pull request #68 from AeneasVerif/son/update_lean

Update Lean to v4.6.0-rc1

1 files changed, 19 insertions, 0 deletions

diff --git a/tests/fstar/arrays/Arrays.Clauses.fst b/tests/fstar/arrays/Arrays.Clauses.fst
new file mode 100644
index 00000000..aca328c2
--- /dev/null
+++ b/tests/fstar/arrays/Arrays.Clauses.fst
@@ -0,0 +1,19 @@
+(** [arrays]: decreases clauses *)
+module Arrays.Clauses
+open Primitives
+open Arrays.Types
+open FStar.List.Tot
+
+#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
+
+(** [arrays::sum]: decreases clause *)
+unfold
+let sum_loop_decreases (s : slice u32) (sum : u32) (i : usize) : nat =
+  if i < length s then length s - i else 0
+
+(** [arrays::sum2]: decreases clause *)
+unfold
+let sum2_loop_decreases (s : slice u32) (s2 : slice u32) (sum : u32)
+  (i : usize) : nat =
+  if i < length s then length s - i else 0
+