diff options
author | Son Ho | 2022-11-11 21:34:29 +0100 |
---|---|---|
committer | Son HO | 2022-11-14 14:21:04 +0100 |
commit | 6db835db88c4bcf0e00ce1a7a6bc396382b393c3 (patch) | |
tree | 3b2a9d46467cf313e3af641cd164e61af2a09541 /tests/misc/PoloniusList.fst | |
parent | b191070501ceafdd49c999385c4410848249fe18 (diff) |
Reorganize the project to prepare for new backends
Diffstat (limited to 'tests/misc/PoloniusList.fst')
-rw-r--r-- | tests/misc/PoloniusList.fst | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/tests/misc/PoloniusList.fst b/tests/misc/PoloniusList.fst deleted file mode 100644 index 73e98884..00000000 --- a/tests/misc/PoloniusList.fst +++ /dev/null @@ -1,41 +0,0 @@ -(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *) -(** [polonius_list] *) -module PoloniusList -open Primitives - -#set-options "--z3rlimit 50 --fuel 1 --ifuel 1" - -(** [polonius_list::List] *) -type list_t (t : Type0) = -| ListCons : t -> list_t t -> list_t t -| ListNil : list_t t - -(** [polonius_list::get_list_at_x] *) -let rec get_list_at_x_fwd (ls : list_t u32) (x : u32) : result (list_t u32) = - begin match ls with - | ListCons hd tl -> - if hd = x - then Return (ListCons hd tl) - else - begin match get_list_at_x_fwd tl x with - | Fail -> Fail - | Return l -> Return l - end - | ListNil -> Return ListNil - end - -(** [polonius_list::get_list_at_x] *) -let rec get_list_at_x_back - (ls : list_t u32) (x : u32) (ret : list_t u32) : result (list_t u32) = - begin match ls with - | ListCons hd tl -> - if hd = x - then Return ret - else - begin match get_list_at_x_back tl x ret with - | Fail -> Fail - | Return tl0 -> Return (ListCons hd tl0) - end - | ListNil -> Return ret - end - |