summaryrefslogtreecommitdiff
path: root/tests/hol4/betree/betree_OpaqueScript.sml
blob: d8fdf6b5e973530f5135aa23dd04d1c174a2bb2d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
(** [betree]: external function declarations *)
open primitivesLib divDefLib
open betree_TypesTheory

val _ = new_theory "betree_Opaque"


(** [betree::betree_utils::load_internal_node]: forward function *)val _ = new_constant ("betree_utils_load_internal_node_fwd",
  “:u64 -> state -> (state # (u64 # betree_message_t) betree_list_t)
  result”)

(** [betree::betree_utils::store_internal_node]: forward function *)val _ = new_constant ("betree_utils_store_internal_node_fwd",
  “:u64 -> (u64 # betree_message_t) betree_list_t -> state -> (state # unit)
  result”)

(** [betree::betree_utils::load_leaf_node]: forward function *)val _ = new_constant ("betree_utils_load_leaf_node_fwd",
  “:u64 -> state -> (state # (u64 # u64) betree_list_t) result”)

(** [betree::betree_utils::store_leaf_node]: forward function *)val _ = new_constant ("betree_utils_store_leaf_node_fwd",
  “:u64 -> (u64 # u64) betree_list_t -> state -> (state # unit) result”)

(** [core::option::Option::{0}::unwrap]: forward function *)val _ = new_constant ("core_option_option_unwrap_fwd",
  “:'t option -> state -> (state # 't) result”)

val _ = export_theory ()