diff options
author | Son Ho | 2024-02-02 23:33:20 +0100 |
---|---|---|
committer | Son Ho | 2024-02-02 23:33:20 +0100 |
commit | 7ecf28dc36f724a4ab4b3b4976421e4e4c397f3b (patch) | |
tree | ad9f8cfb3c035fb86623d83d24e5590bb7bbd8a4 /tests/fstar/arrays/Arrays.Clauses.fst | |
parent | 5cf7d9c0d6b0bc77f2219e7b8b29badce26d51e8 (diff) |
Rename and regenerate some files
Diffstat (limited to 'tests/fstar/arrays/Arrays.Clauses.fst')
-rw-r--r-- | tests/fstar/arrays/Arrays.Clauses.fst | 19 |
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..68cbf216 --- /dev/null +++ b/tests/fstar/arrays/Arrays.Clauses.fst @@ -0,0 +1,19 @@ +(** [array]: decreases clauses *) +module Array.Clauses +open Primitives +open Array.Types +open FStar.List.Tot + +#set-options "--z3rlimit 50 --fuel 1 --ifuel 1" + +(** [array::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 + +(** [array::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 + |