summaryrefslogtreecommitdiff
path: root/tests/misc/BetreeNll.fst
diff options
context:
space:
mode:
authorSon Ho2022-10-13 18:04:31 +0200
committerSon Ho2022-10-13 18:04:31 +0200
commite7b4aba11391bede785799237a73ef7bd16d0372 (patch)
treec114050af416caef7c539cfb7ae10df889540ae6 /tests/misc/BetreeNll.fst
parente692a9535cecc8a19fea9d0ebf2b470a09cf4541 (diff)
Use "polonius" in the names instead of "nll"
Diffstat (limited to 'tests/misc/BetreeNll.fst')
-rw-r--r--tests/misc/BetreeNll.fst41
1 files changed, 0 insertions, 41 deletions
diff --git a/tests/misc/BetreeNll.fst b/tests/misc/BetreeNll.fst
deleted file mode 100644
index b548a18b..00000000
--- a/tests/misc/BetreeNll.fst
+++ /dev/null
@@ -1,41 +0,0 @@
-(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
-(** [betree_nll] *)
-module BetreeNll
-open Primitives
-
-#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
-
-(** [betree_nll::List] *)
-type list_t (t : Type0) =
-| ListCons : t -> list_t t -> list_t t
-| ListNil : list_t t
-
-(** [betree_nll::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
-
-(** [betree_nll::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
-