| VFS_PAGE_SIZE = n7 + (n0 + n6) % VFS_PAGE_SIZE, files0[m] = mkfile(m1, md0, # links(m, dirs), content), err = ESUCCESS, files = files0 [m, mkfile (m1, md0, # links(m, dirs), content[(n0 + n6) / VFS_PAGE_SIZE, copy(buf1, n6, content[(n0 + n6) / VFS_PAGE_SIZE], (n0 + n6) % VFS_PAGE_SIZE, min(n5, n7))]) ], inode = mkinode(m, md, false, # links(m, dirs), 0, m2), ¬ isdir, n = n6 + min(n5, n7), n1 = n5 + n0 + n6, afs-cons(dirs, files0), (n0 + n6) / VFS_PAGE_SIZE ∈ content, m ∈ files0, n6 ≤ # buf1, n5 + n6 ≤ # buf1, (n0 + n6) % VFS_PAGE_SIZE + min(n5, n7) ≤ VFS_PAGE_SIZE, n6 + min(n5, n7) ≤ # buf1, ∀ n2, n3, n4, files, m, m1, md0, dirs, content, inode, md, m2, isdir, buf, err, asynced. n2 - n3 + n4 < n5 → files[m] = mkfile(m1, md0, # links(m, dirs), content) ∧ inode = mkinode(m, md, false, # links(m, dirs), 0, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n3, inode, buf, n2, dirs; n4, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink) ⊦ ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n0, inode, buf1, n1, dirs; n, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink), min(n5, n7) = 0, files[m] = mkfile (m1, md0, # links(m, dirs), content[(n0 + n6) / VFS_PAGE_SIZE, copy(buf1, n6, content[(n0 + n6) / VFS_PAGE_SIZE], (n0 + n6) % VFS_PAGE_SIZE, min(n5, n7))]) ∧ inode = mkinode(m, md, false, # links(m, dirs), 0, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n ≤ # buf1 ∧ n0 + n ≤ n1 ∧ n1 ≤ # buf1 + n0 |
VFS_PAGE_SIZE = n7 + (n0 + n6) % VFS_PAGE_SIZE, files0[m] = mkfile(m1, md0, # links(m, dirs), content), err = ESUCCESS, files = files0 [m, mkfile (m1, md0, # links(m, dirs), content[(n0 + n6) / VFS_PAGE_SIZE, copy(buf1, n6, content[(n0 + n6) / VFS_PAGE_SIZE], (n0 + n6) % VFS_PAGE_SIZE, min(n5, n7))]) ], inode = mkinode(m, md, false, # links(m, dirs), 0, m2), ¬ isdir, n = n6 + min(n5, n7), n1 = n5 + n0 + n6, min(n5, n7) ≠ 0, afs-cons(dirs, files0), (n0 + n6) / VFS_PAGE_SIZE ∈ content, m ∈ files0, n6 ≤ # buf1, n5 + n6 ≤ # buf1, (n0 + n6) % VFS_PAGE_SIZE + min(n5, n7) ≤ VFS_PAGE_SIZE, n6 + min(n5, n7) ≤ # buf1, min(n5, n7) ≤ n5, ¬ afs-cons (dirs, files0 [m, mkfile (m1, md0, # links(m, dirs), content[(n0 + n6) / VFS_PAGE_SIZE, copy(buf1, n6, content[(n0 + n6) / VFS_PAGE_SIZE], (n0 + n6) % VFS_PAGE_SIZE, min(n5, n7))]) ]), ∀ n2, n3, n4, files, m, m1, md0, dirs, content, inode, md, m2, isdir, buf, err, asynced. n2 - n3 + n4 < n5 → files[m] = mkfile(m1, md0, # links(m, dirs), content) ∧ inode = mkinode(m, md, false, # links(m, dirs), 0, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n3, inode, buf, n2, dirs; n4, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink) ⊦ ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n0, inode, buf1, n1, dirs; n, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink)
Used simplifier rules: ⊦ ¬ n < min(n, m); (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)% ⊦ ino ∈ files[ino0, af] ↔ ino ∈ files; (s)% ⊦ files[ino, af][ino0] = (ino0 = ino ∧ ino ∈ files ⊃ af;files[ino0]); (s)