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 ----------------------------------------- tests/misc/BetreePolonius.fst | 41 +++++++++++++++++++++++++++++++++++++++++ 2 files changed, 41 insertions(+), 41 deletions(-) delete mode 100644 tests/misc/BetreeNll.fst create mode 100644 tests/misc/BetreePolonius.fst (limited to 'tests') 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 - diff --git a/tests/misc/BetreePolonius.fst b/tests/misc/BetreePolonius.fst new file mode 100644 index 00000000..2bac07b6 --- /dev/null +++ b/tests/misc/BetreePolonius.fst @@ -0,0 +1,41 @@ +(** 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 From 6ca61f1deb2f2e45bf55c2b3fcf15b57a7b51ecb Mon Sep 17 00:00:00 2001 From: Son Ho Date: Thu, 20 Oct 2022 21:12:33 +0200 Subject: Regenerate the files --- tests/betree/BetreeMain.Clauses.Template.fst | 2 +- tests/betree/BetreeMain.Funs.fst | 2 +- tests/betree/BetreeMain.Types.fsti | 2 +- tests/hashmap/Hashmap.Clauses.Template.fst | 2 +- tests/hashmap/Hashmap.Funs.fst | 2 +- tests/hashmap/Hashmap.Types.fst | 2 +- tests/hashmap_on_disk/HashmapMain.Clauses.Template.fst | 2 +- tests/hashmap_on_disk/HashmapMain.Funs.fst | 2 +- tests/hashmap_on_disk/HashmapMain.Types.fsti | 2 +- tests/misc/Constants.fst | 2 +- 10 files changed, 10 insertions(+), 10 deletions(-) (limited to 'tests') diff --git a/tests/betree/BetreeMain.Clauses.Template.fst b/tests/betree/BetreeMain.Clauses.Template.fst index c2412775..d48213d3 100644 --- a/tests/betree/BetreeMain.Clauses.Template.fst +++ b/tests/betree/BetreeMain.Clauses.Template.fst @@ -6,7 +6,7 @@ open BetreeMain.Types #set-options "--z3rlimit 50 --fuel 1 --ifuel 1" -(** [core::num::u64::{9}::MAX] *) +(** [core::num::u64::{10}::MAX] *) let core_num_u64_max_body : result u64 = Return 18446744073709551615 let core_num_u64_max_c : u64 = eval_global core_num_u64_max_body diff --git a/tests/betree/BetreeMain.Funs.fst b/tests/betree/BetreeMain.Funs.fst index e80e96a6..9ba5d3e7 100644 --- a/tests/betree/BetreeMain.Funs.fst +++ b/tests/betree/BetreeMain.Funs.fst @@ -80,7 +80,7 @@ let betree_node_id_counter_fresh_id_back | Return i -> Return (Mkbetree_node_id_counter_t i) end -(** [core::num::u64::{9}::MAX] *) +(** [core::num::u64::{10}::MAX] *) let core_num_u64_max_body : result u64 = Return 18446744073709551615 let core_num_u64_max_c : u64 = eval_global core_num_u64_max_body diff --git a/tests/betree/BetreeMain.Types.fsti b/tests/betree/BetreeMain.Types.fsti index f0ca1d9e..c81e3302 100644 --- a/tests/betree/BetreeMain.Types.fsti +++ b/tests/betree/BetreeMain.Types.fsti @@ -55,7 +55,7 @@ type betree_be_tree_t = betree_be_tree_root : betree_node_t; } -(** [core::num::u64::{9}::MAX] *) +(** [core::num::u64::{10}::MAX] *) let core_num_u64_max_body : result u64 = Return 18446744073709551615 let core_num_u64_max_c : u64 = eval_global core_num_u64_max_body diff --git a/tests/hashmap/Hashmap.Clauses.Template.fst b/tests/hashmap/Hashmap.Clauses.Template.fst index 2a3d9cb9..3e51c6f1 100644 --- a/tests/hashmap/Hashmap.Clauses.Template.fst +++ b/tests/hashmap/Hashmap.Clauses.Template.fst @@ -24,7 +24,7 @@ let hash_map_insert_in_list_decreases (t : Type0) (key : usize) (value : t) (ls : list_t t) : nat = admit () -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body diff --git a/tests/hashmap/Hashmap.Funs.fst b/tests/hashmap/Hashmap.Funs.fst index 397ee720..6e67fca4 100644 --- a/tests/hashmap/Hashmap.Funs.fst +++ b/tests/hashmap/Hashmap.Funs.fst @@ -188,7 +188,7 @@ let hash_map_insert_no_resize_fwd_back end end -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body diff --git a/tests/hashmap/Hashmap.Types.fst b/tests/hashmap/Hashmap.Types.fst index f81f4185..d53b8a42 100644 --- a/tests/hashmap/Hashmap.Types.fst +++ b/tests/hashmap/Hashmap.Types.fst @@ -19,7 +19,7 @@ type hash_map_t (t : Type0) = hash_map_slots : vec (list_t t); } -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body diff --git a/tests/hashmap_on_disk/HashmapMain.Clauses.Template.fst b/tests/hashmap_on_disk/HashmapMain.Clauses.Template.fst index 0cf876d9..55685114 100644 --- a/tests/hashmap_on_disk/HashmapMain.Clauses.Template.fst +++ b/tests/hashmap_on_disk/HashmapMain.Clauses.Template.fst @@ -24,7 +24,7 @@ let hashmap_hash_map_insert_in_list_decreases (t : Type0) (key : usize) (value : t) (ls : hashmap_list_t t) : nat = admit () -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body diff --git a/tests/hashmap_on_disk/HashmapMain.Funs.fst b/tests/hashmap_on_disk/HashmapMain.Funs.fst index 83bf80d1..82b44dbd 100644 --- a/tests/hashmap_on_disk/HashmapMain.Funs.fst +++ b/tests/hashmap_on_disk/HashmapMain.Funs.fst @@ -198,7 +198,7 @@ let hashmap_hash_map_insert_no_resize_fwd_back end end -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body diff --git a/tests/hashmap_on_disk/HashmapMain.Types.fsti b/tests/hashmap_on_disk/HashmapMain.Types.fsti index 370844db..ce4d6485 100644 --- a/tests/hashmap_on_disk/HashmapMain.Types.fsti +++ b/tests/hashmap_on_disk/HashmapMain.Types.fsti @@ -19,7 +19,7 @@ type hashmap_hash_map_t (t : Type0) = hashmap_hash_map_slots : vec (hashmap_list_t t); } -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body diff --git a/tests/misc/Constants.fst b/tests/misc/Constants.fst index 4a9a0e48..884d1778 100644 --- a/tests/misc/Constants.fst +++ b/tests/misc/Constants.fst @@ -9,7 +9,7 @@ open Primitives let x0_body : result u32 = Return 0 let x0_c : u32 = eval_global x0_body -(** [core::num::u32::{8}::MAX] *) +(** [core::num::u32::{9}::MAX] *) let core_num_u32_max_body : result u32 = Return 4294967295 let core_num_u32_max_c : u32 = eval_global core_num_u32_max_body -- cgit v1.2.3