| inode.size = n, files0 = files1, inode = inode0, inode = getinode(ino, dirs, files0), pageno = inode.size / VFS_PAGE_SIZE, buf-opt.none?, afs-cons(dirs, files0), ino ∈ files0 ⊦ [afs_truncate#(n, pageno; buf-opt, inode, bv, err, dirs, files1, asynced)] ( (err = ESUCCESS ⊃ files1[ino].content.stream from n = σ⊥ ∧ (∀ n0, n1, buf. n1 ≤ # buf → write-inv(n0, n0 + n1, inode, buf, 0, dirs, files1, files1)) ∧ files0 -- ino = files1 -- ino ;⌊err⌋ ) ∧ files0 ~ files1 ∧ inode = inode0), inode.directory |
files1[ino].size = n, buf-opt = none, files0 = files1, inode = mkinode(ino, files1[ino].meta, false, files1[ino].nlink, 0, files1[ino].size), mkinode(ino, files1[ino].meta, false, files1[ino].nlink, 0, files1[ino].size) = inode0, afs-cons(dirs, files1), ino ∈ files1 ⊦ [afs_truncate#(files1[ino].size, files1[ino].size / VFS_PAGE_SIZE; buf-opt, inode, bv, err, dirs, files1, asynced)] ( (err = ESUCCESS ⊃ files1[ino].content.stream from n = σ⊥ ∧ (∀ n0, n1, buf. n1 ≤ # buf → write-inv(n0, n0 + n1, inode0, buf, 0, dirs, files1, files1)) ∧ files0 -- ino = files1 -- ino ;⌊err⌋ ) ∧ files0 ~ files1 ∧ inode = inode0)
Used simplifier rules: ⊦ mkinode(m, md, boolvar, m0, m1, m2).directory ↔ boolvar; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ afs-cons(dirs, files) ∧ ino ∈ dirs → ¬ ino ∈ files; (s)% ⊦ buf-opt.none? ↔ buf-opt = none; (s)%⊦ getinode(ino, dirs, files) = (ino ∈ dirs ⊃ mkinode (ino, dirs[ino].meta, true, dirs[ino].nlink, dirs[ino].nsubdirs, dirs[ino].size) ;mkinode (ino, files[ino].meta, false, files[ino].nlink, 0, files[ino].size) ); (s)