From 051e2a19f3268d272a0acd0425d2107ebea020c5 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Tue, 7 Mar 2023 13:46:55 +0100
Subject: Reorganize the Lean tests and extract the Polonius tests to Lean

---
 tests/lean/betree/BetreeMain/Opaque.lean | 33 ++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 tests/lean/betree/BetreeMain/Opaque.lean

(limited to 'tests/lean/betree/BetreeMain/Opaque.lean')

diff --git a/tests/lean/betree/BetreeMain/Opaque.lean b/tests/lean/betree/BetreeMain/Opaque.lean
new file mode 100644
index 00000000..b3db37c2
--- /dev/null
+++ b/tests/lean/betree/BetreeMain/Opaque.lean
@@ -0,0 +1,33 @@
+-- THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS
+-- [betree_main]: opaque function definitions
+import Base.Primitives
+import BetreeMain.Types
+
+structure OpaqueDefs where
+  
+  /- [betree_main::betree_utils::load_internal_node] -/
+  betree_utils_load_internal_node_fwd
+    :
+    UInt64 -> State -> Result (State × (betree_list_t (UInt64 ×
+      betree_message_t)))
+  
+  /- [betree_main::betree_utils::store_internal_node] -/
+  betree_utils_store_internal_node_fwd
+    :
+    UInt64 -> betree_list_t (UInt64 × betree_message_t) -> State -> Result
+      (State × Unit)
+  
+  /- [betree_main::betree_utils::load_leaf_node] -/
+  betree_utils_load_leaf_node_fwd
+    : UInt64 -> State -> Result (State × (betree_list_t (UInt64 × UInt64)))
+  
+  /- [betree_main::betree_utils::store_leaf_node] -/
+  betree_utils_store_leaf_node_fwd
+    :
+    UInt64 -> betree_list_t (UInt64 × UInt64) -> State -> Result (State ×
+      Unit)
+  
+  /- [core::option::Option::{0}::unwrap] -/
+  core_option_option_unwrap_fwd
+    (T : Type) : Option T -> State -> Result (State × T)
+  
-- 
cgit v1.2.3

