| # content[n] = VFS_PAGE_SIZE, n ∈ content ⊦ ⌜content[n]⌝ = (content.stream from n * VFS_PAGE_SIZE) to VFS_PAGE_SIZE |
# content[n] = VFS_PAGE_SIZE, n ∈ content ⊦ ⌜content[n]⌝ = ⌜((λ n0. (n0 / VFS_PAGE_SIZE ∈ content ⊃ content[n0 / VFS_PAGE_SIZE];zeropage)[n0 % VFS_PAGE_SIZE]) from n * VFS_PAGE_SIZE) to VFS_PAGE_SIZE⌝
Used simplifier rules: stream: ⊦ content.stream = ⌜λ n. getbyte(n, content)⌝ ;%getbyte: ⊦ getbyte(m, content) = getpage(m / VFS_PAGE_SIZE, content)[m % VFS_PAGE_SIZE];%getpage: ⊦ getpage(n, content) = (n ∈ content ⊃ content[n];zeropage);% ⊦ ⌜nf0⌝ to n = ⌜nf0 to n⌝ ; (s)% ⊦ ⌜nf0⌝ from n = ⌜nf0 from n⌝ ; (s)