From 6f714017d71a512042b22d7d0e987f75b47a088f Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Mon, 14 Nov 2022 14:14:38 +0100
Subject: Extract the Polonius examples in Coq

---
 tests/coq/betree/BetreeMain__Opaque.v | 38 +++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 tests/coq/betree/BetreeMain__Opaque.v

(limited to 'tests/coq/betree/BetreeMain__Opaque.v')

diff --git a/tests/coq/betree/BetreeMain__Opaque.v b/tests/coq/betree/BetreeMain__Opaque.v
new file mode 100644
index 00000000..95d4b7c0
--- /dev/null
+++ b/tests/coq/betree/BetreeMain__Opaque.v
@@ -0,0 +1,38 @@
+(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
+(** [betree_main]: opaque function definitions *)
+Require Import Primitives.
+Import Primitives.
+Require Import Coq.ZArith.ZArith.
+Local Open Scope Primitives_scope.
+Require Export BetreeMain__Types .
+Import BetreeMain__Types .
+Module BetreeMain__Opaque .
+
+(** [betree_main::betree_utils::load_internal_node] *)
+Axiom betree_utils_load_internal_node_fwd
+  : u64 -> state -> result (state * (Betree_list_t (u64 * Betree_message_t)))
+  .
+
+(** [betree_main::betree_utils::store_internal_node] *)
+Axiom betree_utils_store_internal_node_fwd
+  :
+  u64 -> Betree_list_t (u64 * Betree_message_t) -> state -> result (state *
+    unit)
+  .
+
+(** [betree_main::betree_utils::load_leaf_node] *)
+Axiom betree_utils_load_leaf_node_fwd
+  : u64 -> state -> result (state * (Betree_list_t (u64 * u64)))
+  .
+
+(** [betree_main::betree_utils::store_leaf_node] *)
+Axiom betree_utils_store_leaf_node_fwd
+  : u64 -> Betree_list_t (u64 * u64) -> state -> result (state * unit)
+  .
+
+(** [core::option::Option::{0}::unwrap] *)
+Axiom core_option_option_unwrap_fwd :
+  forall(T : Type) , option T -> state -> result (state * T)
+  .
+
+End BetreeMain__Opaque .
-- 
cgit v1.2.3