diff --git a/Export.thy b/Export.thy new file mode 100644 index 0000000..49c4abe --- /dev/null +++ b/Export.thy @@ -0,0 +1,16 @@ +theory Export + imports Reuse +begin + +definition seed :: memory where + "seed frame offset = (frame * 17 + offset) mod 256" + +definition boot :: pager where "boot = initial 4 seed" + +definition read_byte :: "pager \ nat \ nat \ nat" where + "read_byte s k offset = view s k offset" + +export_code boot initial read_byte checked frontier ptable writable prepare reserve reclaim + Read Write Suc in OCaml module_name Split file_prefix split + +end diff --git a/ROOT b/ROOT index 83b28d4..4171038 100644 --- a/ROOT +++ b/ROOT @@ -7,3 +7,4 @@ session Split = HOL + Protocol Snapshot Reuse + Export