From b6676f6dc3b1471317cce8e04e9cb7203168f75c Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 11 Nov 2022 16:05:56 +0100
Subject: Make minor modifications to the tests and regenerate the .fst files

---
 tests/misc/BetreePolonius.fst | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 tests/misc/BetreePolonius.fst

(limited to 'tests/misc/BetreePolonius.fst')

diff --git a/tests/misc/BetreePolonius.fst b/tests/misc/BetreePolonius.fst
deleted file mode 100644
index 2bac07b6..00000000
--- a/tests/misc/BetreePolonius.fst
+++ /dev/null
@@ -1,41 +0,0 @@
-(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
-(** [betree_polonius] *)
-module BetreePolonius
-open Primitives
-
-#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"
-
-(** [betree_polonius::List] *)
-type list_t (t : Type0) =
-| ListCons : t -> list_t t -> list_t t
-| ListNil : list_t t
-
-(** [betree_polonius::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_polonius::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