| buf = mkbuf(VFS_PAGE_SIZE), buf0 = buf1, files0 = files, ino = n0, ino0 = m, inode = mkinode(m0, md0, boolvar, m2, m3, m4), n = n1, pageno = n3, ((m0 =>mkfile(n2, md, m1, σ) * F))(files), afs-cons(dirs, files), m0 ∈ files, n0 + n1 ≤ VFS_PAGE_SIZE, m + n1 ≤ # buf1 ⊦ [afs_readpage#(inode, pageno, dirs, files, asynced; buf, err); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); if err = ESUCCESS then {buf := copy(buf0, ino0, buf, ino, n); afs_writepage#(inode, pageno, buf, dirs; err, files; asynced)}] ( err = ESUCCESS ∧ ((m0 =>mkfile(n2, md, m1, (σ to n3 * VFS_PAGE_SIZE + n0) + ((⌜buf1⌝ from m) to n1) + (σ from n3 * VFS_PAGE_SIZE + n0 + n1)) * F))(files) ∨ ⌊err⌋ ∧ files0 = files) |
buf = mkbuf(VFS_PAGE_SIZE), ((m0 =>mkfile(n2, md, m1, σ) * F))(files), afs-cons(dirs, files), m0 ∈ files, m + n1 ≤ # buf1, n0 + n1 ≤ VFS_PAGE_SIZE ⊦ [afs_readpage#(mkinode(m0, md0, boolvar, m2, m3, m4), n3, dirs, files, asynced; buf, err); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); files0 := files; if err = ESUCCESS then {buf := copy(buf1, m, buf, n0, n1); afs_writepage#(mkinode(m0, md0, boolvar, m2, m3, m4), n3, buf, dirs; err, files; asynced)}] ( err = ESUCCESS ∧ ((m0 =>mkfile(n2, md, m1, (σ to n3 * VFS_PAGE_SIZE + n0) + ((⌜buf1⌝ from m) to n1) + (σ from n3 * VFS_PAGE_SIZE + n0 + n1)) * F))(files) ∨ ⌊err⌋ ∧ files0 = files)