| (ino ∈ dirs ⊃ mkinode(ino, dirs[ino].meta, true, dirs[ino].nlink, dirs[ino].nsubdirs, dirs[ino].size);mkinode(ino, md0, false, m4, 0, m3)) = mkinode(m, md, false, m0, m1, m2), asynced0 ↔ bv, files[ino] = mkfile(m3, md0, m4, content), buf-opt = none, files0 = files, inode = mkinode(ino, md0, false, m4, 0, m3), n = m3, old_ino = 0, old_ino0 = 0, pageno = m3 / VFS_PAGE_SIZE, afs-cons(dirs, files), pre-truncate(inode, n, pageno, buf-opt, dirs, files) ⊦ [afs_truncate_internal#(n, pageno; inode, buf-opt, old_ino0, old_ino, asynced0, err, dirs, files; asynced)] (files0 ~ files ∧ (⌊err⌋ ∨ err = ESUCCESS)), VFS_PAGE_SIZE = 0 |
files[ino] = mkfile(m2, md0, # links(ino, dirs), content), buf-opt = none, files0 = files, inode = mkinode(ino, md0, false, # links(ino, dirs), 0, m2), old_ino = 0, old_ino0 = 0, afs-cons(dirs, files), ino ∈ files ⊦ [afs_truncate_internal#(m2, m2 / VFS_PAGE_SIZE; inode, buf-opt, old_ino0, old_ino, asynced0, err, dirs, files; asynced)] (files0 ~ files ∧ (⌊err⌋ ∨ err = ESUCCESS))
Used simplifier rules: ⊦ mkinode(m, md, boolvar, m0, m1, m2) = mkinode(m3, md0, boolvar0, m4, m5, m6) ↔ m = m3 ∧ md = md0 ∧ (boolvar ↔ boolvar0) ∧ m0 = m4 ∧ m1 = m5 ∧ m2 = m6; (ws)% ⊦ afs-cons(dirs, files) ∧ ino ∈ dirs → ¬ ino ∈ files; (s)% ⊦ mkfile(m, md, m0, content).nlink = m0; (s)%afs-cons-file-nlink: ⊦ afs-cons(dirs, files) ∧ ino ∈ files ∧ files[ino] = mkfile(m, md, n, content) → # links(ino, dirs) = n; (forward) from specification afs-base% ⊦ ¬ none.some?; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).directory ↔ boolvar; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).nsubdirs = m1; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).nlink = m0; (s)% ⊦ valid-file-ino(ino, dirs, files) ↔ ino ∈ files; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)%⊦ valid-file-inode(inode, dirs, files) ↔ valid-file-ino(inode.ino, dirs, files) ∧ inode.nlink = files[inode.ino].nlink ∧ inode.nsubdirs = 0 ∧ ¬ inode.directory; (s)%⊦ pre-truncate(inode, n, pageno, buf-opt, dirs, files) ↔ valid-file-inode(inode, dirs, files) ∧ pageno = inode.size / VFS_PAGE_SIZE ∧ (buf-opt.some? → # buf-opt.buf = VFS_PAGE_SIZE); (s)% ⊦ VFS_PAGE_SIZE ≠ 0; (s)