| ⊦ content.stream to m * VFS_PAGE_SIZE + VFS_PAGE_SIZE = (content.stream to m * VFS_PAGE_SIZE) + (σ⊥ to VFS_PAGE_SIZE), m ∈ content |
⊦ ⌜(λ n. (n / VFS_PAGE_SIZE ∈ content ⊃ content[n / VFS_PAGE_SIZE];zeropage)[n % VFS_PAGE_SIZE]) to m * VFS_PAGE_SIZE + VFS_PAGE_SIZE⌝ = ⌜(λ n. (n / VFS_PAGE_SIZE ∈ content ⊃ content[n / VFS_PAGE_SIZE];zeropage)[n % VFS_PAGE_SIZE]) to m * VFS_PAGE_SIZE⌝ + (σ⊥ to VFS_PAGE_SIZE), m ∈ content
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)