| # fill(content[m / VFS_PAGE_SIZE], zero, m % VFS_PAGE_SIZE, n0) = VFS_PAGE_SIZE, VFS_PAGE_SIZE = n0 + m % VFS_PAGE_SIZE, files0[ino0] = mkfile(m, md, # links(ino0, dirs), content), afs-cons(dirs, files0), ino0 ∈ files0, m / VFS_PAGE_SIZE ∈ content ⊦ m % VFS_PAGE_SIZE = 0, content.stream to m = (content.stream to m / VFS_PAGE_SIZE * VFS_PAGE_SIZE) + ⌜fill(content[m / VFS_PAGE_SIZE], zero, m % VFS_PAGE_SIZE, n0)⌝ + (content.stream from (m / VFS_PAGE_SIZE + 1) * VFS_PAGE_SIZE) to m |
VFS_PAGE_SIZE = n0 + m % VFS_PAGE_SIZE, files0[ino0] = mkfile(m, md, # links(ino0, dirs), content), afs-cons(dirs, files0), m / VFS_PAGE_SIZE ∈ content, ino0 ∈ files0 ⊦ m % VFS_PAGE_SIZE = 0, content.stream to m = (content.stream to m / VFS_PAGE_SIZE * VFS_PAGE_SIZE) + ⌜fill(content[m / VFS_PAGE_SIZE], zero, m % VFS_PAGE_SIZE, n0)⌝ + (content.stream from VFS_PAGE_SIZE * m / VFS_PAGE_SIZE + VFS_PAGE_SIZE) to m
Used simplifier rules: append-assoc: ⊦ (σ0 + σ3) + σ4 = σ0 + σ3 + σ4; from specification stream[buffer-inf]%mult-c: ⊦ m * n = n * m; from specification nat-mult%mult-a: ⊦ m0 * m * n = (m0 * m) * n; from specification nat-mult%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m * (n + 1) = m * n + m; (s)%⊦ afs-cons(dirs, files) ∧ ino ∈ files ∧ files[ino] = mkfile(m, md, n0, content) ∧ n ∈ content → # content[n] = VFS_PAGE_SIZE; (s)% ⊦ # fill(buf, d, m, n) = # buf; (s)