| files[ino0] = mkfile(m, md, # links(ino0, dirs), content), err = ESUCCESS, err = err0, err1 = ESUCCESS, inode = (ino0 ∈ dirs ⊃ mkinode(ino0, dirs[ino0].meta, true, dirs[ino0].nlink, dirs[ino0].nsubdirs, dirs[ino0].size) ;mkinode(ino0, md, false, # links(ino0, dirs), 0, m) ), pageno = 0, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pw(user, md), px-parent(user, p, ROOT_INO, dirs, files), ino0 ∈ files, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪pageno := inode.size / VFS_PAGE_SIZE; if err = ESUCCESS then {buf-opt := none; afs_truncate#(n, pageno; buf-opt, inode, isdir0, err, dirs, files, bv)}⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files)), ino0 ∈ dirs |
files[ino0] = mkfile(m, md, # links(ino0, dirs), content), err = err0, err = ESUCCESS, err1 = ESUCCESS, inode = (ino0 ∈ dirs ⊃ mkinode(ino0, dirs[ino0].meta, true, dirs[ino0].nlink, dirs[ino0].nsubdirs, dirs[ino0].size) ;mkinode(ino0, md, false, # links(ino0, dirs), 0, m) ), pageno = 0, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pw(user, md), px-parent(user, p, ROOT_INO, dirs, files), ino0 ∈ files, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if err = ESUCCESS then {buf-opt := none; afs_truncate#(n, inode.size / VFS_PAGE_SIZE; buf-opt, inode, isdir0, err, dirs, files, bv)}⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files)), VFS_PAGE_SIZE = 0, ino0 ∈ dirs
Used simplifier rules: ⊦ VFS_PAGE_SIZE ≠ 0; (s)