From e7b4aba11391bede785799237a73ef7bd16d0372 Mon Sep 17 00:00:00 2001 From: Son Ho Date: Thu, 13 Oct 2022 18:04:31 +0200 Subject: Use "polonius" in the names instead of "nll" --- tests/misc/BetreeNll.fst | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 tests/misc/BetreeNll.fst (limited to 'tests/misc/BetreeNll.fst') 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 - -- cgit v1.2.3