summaryrefslogtreecommitdiff
path: root/tests/lean/BetreeMain/FunsExternal.lean
blob: 71d26da432e4bece51dba4cd6a6ba0350f562579 (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
27
28
29
30
31
32
33
34
35
-- [betree_main]: external functions.
import Base
import BetreeMain.Types
open Primitives
open betree_main

-- TODO: fill those bodies

/- [betree_main::betree_utils::load_internal_node] -/
def betree_utils.load_internal_node
  :
  U64  State  Result (State × (betree.List (U64 × betree.Message))) :=
  fun _ _ => .fail .panic

/- [betree_main::betree_utils::store_internal_node] -/
def betree_utils.store_internal_node
  :
  U64  betree.List (U64 × betree.Message)  State  Result (State
    × Unit) :=
  fun _ _ _ => .fail .panic

/- [betree_main::betree_utils::load_leaf_node] -/
def betree_utils.load_leaf_node
  : U64  State  Result (State × (betree.List (U64 × U64))) :=
  fun _ _ => .fail .panic

/- [betree_main::betree_utils::store_leaf_node] -/
def betree_utils.store_leaf_node
  : U64  betree.List (U64 × U64)  State  Result (State × Unit) :=
  fun _ _ _ => .fail .panic

/- [core::option::Option::{0}::unwrap] -/
def core.option.Option.unwrap
  (T : Type) : Option T  State  Result (State × T) :=
  fun _ _ => .fail .panic