blob: a6f0cf15cf020dfcc57b45532254b23a77416aa5 (
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_main]: opaque function definitions *)
open primitivesLib divDefLib
open betreeMain_TypesTheory
val _ = new_theory "betreeMain_Opaque"
val _ = new_constant ("betree_utils_load_internal_node_fwd",
“:u64 -> state -> (state # (u64 # betree_message_t) betree_list_t)
result”)
val _ = new_constant ("betree_utils_store_internal_node_fwd",
“:u64 -> (u64 # betree_message_t) betree_list_t -> state -> (state # unit)
result”)
val _ = new_constant ("betree_utils_load_leaf_node_fwd",
“:u64 -> state -> (state # (u64 # u64) betree_list_t) result”)
val _ = new_constant ("betree_utils_store_leaf_node_fwd",
“:u64 -> (u64 # u64) betree_list_t -> state -> (state # unit) result”)
val _ = new_constant ("core_option_option_unwrap_fwd",
“:'t option -> state -> (state # 't) result”)
val _ = export_theory ()
|
