diff options
author | Son HO | 2024-03-08 16:51:40 +0100 |
---|---|---|
committer | GitHub | 2024-03-08 16:51:40 +0100 |
commit | 169d011cbfa83d853d0148bbf6b946e6ccbe4c4c (patch) | |
tree | ed8953634d14313d5b7d6ad204343d64eb990baf /tests/fstar-split/misc/Loops.Clauses.fst | |
parent | b604bb9935007a1f0e9c7f556f8196f0e14c85ce (diff) | |
parent | 873deb005b394aca3090497e6c21ab9f8c2676be (diff) |
Merge pull request #83 from AeneasVerif/son/backs
Remove the option to split the forward/backward functions
Diffstat (limited to 'tests/fstar-split/misc/Loops.Clauses.fst')
-rw-r--r-- | tests/fstar-split/misc/Loops.Clauses.fst | 112 |
1 files changed, 0 insertions, 112 deletions
diff --git a/tests/fstar-split/misc/Loops.Clauses.fst b/tests/fstar-split/misc/Loops.Clauses.fst deleted file mode 100644 index 13f5513d..00000000 --- a/tests/fstar-split/misc/Loops.Clauses.fst +++ /dev/null @@ -1,112 +0,0 @@ -(** [loops]: templates for the decreases clauses *) -module Loops.Clauses -open Primitives -open Loops.Types - -#set-options "--z3rlimit 50 --fuel 1 --ifuel 1" - -(** [loops::sum]: decreases clause *) -unfold let sum_loop_decreases (max : u32) (i : u32) (s : u32) : nat = - if i <= max then max - i else 0 - -(** [loops::sum_with_mut_borrows]: decreases clause *) -unfold -let sum_with_mut_borrows_loop_decreases (max : u32) (mi : u32) (ms : u32) : nat = - if max >= mi then max - mi else 0 - -(** [loops::sum_with_shared_borrows]: decreases clause *) -unfold -let sum_with_shared_borrows_loop_decreases (max : u32) (i : u32) (s : u32) : nat = - if max >= i then max - i else 0 - -(** [loops::sum_array]: decreases clause *) -unfold -let sum_array_loop_decreases (n : usize) (_ : array u32 n) (i : usize) (_ : u32) : nat = - if n >= i then n - i else 0 - -(** [loops::clear]: decreases clause *) -unfold let clear_loop_decreases (v : alloc_vec_Vec u32) (i : usize) : nat = - if i <= List.Tot.length v then List.Tot.length v - i else 0 - -(** [loops::list_mem]: decreases clause *) -unfold let list_mem_loop_decreases (i : u32) (ls : list_t u32) : list_t u32 = - ls - -(** [loops::list_nth_mut_loop]: decreases clause *) -unfold -let list_nth_mut_loop_loop_decreases (t : Type0) (ls : list_t t) (i : u32) : nat = - i - -(** [loops::list_nth_shared_loop]: decreases clause *) -unfold -let list_nth_shared_loop_loop_decreases (t : Type0) (ls : list_t t) (i : u32) : list_t t = - ls - -(** [loops::get_elem_mut]: decreases clause *) -unfold -let get_elem_mut_loop_decreases (x : usize) (ls : list_t usize) : list_t usize = ls - -(** [loops::get_elem_shared]: decreases clause *) -unfold -let get_elem_shared_loop_decreases (x : usize) (ls : list_t usize) : list_t usize = - ls - -(** [loops::list_nth_mut_loop_with_id]: decreases clause *) -unfold -let list_nth_mut_loop_with_id_loop_decreases (t : Type0) (i : u32) (ls : list_t t) : - list_t t = - ls - -(** [loops::list_nth_shared_loop_with_id]: decreases clause *) -unfold -let list_nth_shared_loop_with_id_loop_decreases (t : Type0) (i : u32) - (ls : list_t t) : list_t t = - ls - -(** [loops::list_nth_mut_loop_pair]: decreases clause *) -unfold -let list_nth_mut_loop_pair_loop_decreases (t : Type0) (l : list_t t) (l0 : list_t t) - (i : u32) : nat = - i - -(** [loops::list_nth_shared_loop_pair]: decreases clause *) -unfold -let list_nth_shared_loop_pair_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : list_t t = - l - -(** [loops::list_nth_mut_loop_pair_merge]: decreases clause *) -unfold -let list_nth_mut_loop_pair_merge_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : nat = - i - -(** [loops::list_nth_shared_loop_pair_merge]: decreases clause *) -unfold -let list_nth_shared_loop_pair_merge_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : list_t t = - l - -(** [loops::list_nth_mut_shared_loop_pair]: decreases clause *) -unfold -let list_nth_mut_shared_loop_pair_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : list_t t = - l - -(** [loops::list_nth_mut_shared_loop_pair_merge]: decreases clause *) -unfold -let list_nth_mut_shared_loop_pair_merge_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : list_t t = - l - -(** [loops::list_nth_shared_mut_loop_pair]: decreases clause *) -unfold -let list_nth_shared_mut_loop_pair_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : list_t t = - l - -(** [loops::list_nth_shared_mut_loop_pair_merge]: decreases clause *) -unfold -let list_nth_shared_mut_loop_pair_merge_loop_decreases (t : Type0) (l : list_t t) - (l0 : list_t t) (i : u32) : list_t t = - l |