enrich
buffer
with
constants VFS_PAGE_SIZE : nat;
zeropage : buffer;
axioms page-size : ⊦ VFS_PAGE_SIZE ≠ 0;
used for: s, ls;
emptypage-size : ⊦ # zeropage = VFS_PAGE_SIZE;
used for: s, ls;
emptypage-at : ⊦ n < VFS_PAGE_SIZE → (zeropage)[n] = zero;
used for: s, ls;
end enrich