| ⟨afs_truncate#(m, m / VFS_PAGE_SIZE; buf-opt, inode, bv, err, dirs, files1, asynced)⟩ (buf-opt = buf-opt0 ∧ inode = inode0 ∧ (bv ↔ bv0) ∧ err = err0 ∧ dirs = dirs0 ∧ files1 = files ∧ (asynced ↔ asynced0)), files1[ino] = mkfile(m, md0, # links(ino, dirs), content), buf-opt = none, inode = mkinode(ino, md0, false, # links(ino, dirs), 0, m), afs-cons(dirs0, files), afs-cons(dirs, files1), files1 ~ files, ino ∈ files1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ (err0 = ESUCCESS ⊃ files[ino].content.stream from m = σ⊥ ∧ ( n0 ≤ # buf → afs-cons(dirs0, files) ∧ mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino ∈ files ∧ mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino ∈ files ∧ files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].size = mkinode(ino, md0, false, # links(ino, dirs), 0, m).size ∧ files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].size = files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].size ∧ files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].meta = files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].meta ∧ files -- mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino = files -- mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino ∧ n + 0 ≤ n + n0 ∧ n + n0 - n ≤ # buf ∧ write-inv (n, n + n0, buf, 0, files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].content, files[mkinode(ino, md0, false, # links(ino, dirs), 0, m).ino].content)) ∧ files1 -- ino = files -- ino ;⌊err0⌋ ) ∧ inode0 = mkinode(ino, md0, false, # links(ino, dirs), 0, m) |
⟨afs_truncate#(m, m / VFS_PAGE_SIZE; buf-opt, inode, bv, err, dirs, files1, asynced)⟩ (buf-opt = buf-opt0 ∧ inode = inode0 ∧ (bv ↔ bv0) ∧ err = err0 ∧ dirs = dirs0 ∧ files1 = files ∧ (asynced ↔ asynced0)), files1[ino] = mkfile(m, md0, # links(ino, dirs), content), buf-opt = none, inode = mkinode(ino, md0, false, # links(ino, dirs), 0, m), afs-cons(dirs, files1), afs-cons(dirs0, files), files1 ~ files, ino ∈ files1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ (err0 = ESUCCESS ⊃ files[ino].content.stream from m = σ⊥ ∧ (n0 ≤ # buf → ino ∈ files ∧ files[ino].size = m ∧ write-inv(n, n + n0, buf, 0, files[ino].content, files[ino].content)) ∧ files1 -- ino = files -- ino ;⌊err0⌋ ) ∧ inode0 = mkinode(ino, md0, false, # links(ino, dirs), 0, m)
Used simplifier rules: ⊦ m + n - m = n; (s)% ⊦ m ≤ m + n; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)