| # links(ino0, dirs) = m0, dirs[ino0] = mkdir(m, md1, m0, m1, entries0), dirs[ino0] = mkdir(m, md0, m0, m1, entries), dent = negdentry(str), err = ESUCCESS, inode = mkinode(ino0, md1, true, m0, m1, m), afs-cons(dirs, files), ispath(q, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pw(user, md1), px(user, md1), px-parent(user, q, ROOT_INO, dirs, files), ino0 ∈ dirs, links(ino0, dirs) ≠ ∅ ∨ ino0 = ROOT_INO ⊦ [afs_mkdir_ino#(ino0, md, ino; dent, err, dirs); afs_inode_sync#(inode; dirs, files); inode := (inode.ino ∈ dirs ⊃ mkinode(inode.ino, dirs[inode.ino].meta, true, dirs[inode.ino].nlink, dirs[inode.ino].nsubdirs, dirs[inode.ino].size) ;mkinode(inode.ino, files[inode.ino].meta, false, files[inode.ino].nlink, 0, files[inode.ino].size) ); c_inode := getinode(dent.ino, dirs, files); asynced := ?] (afs-cons(dirs, files) → of-cons(of, dirs, files)), ino = 0, str ∈ entries, str ∈ entries0, ino ∈ files, ino ∈ dirs |
# links(ino0, dirs) = m0, dirs[ino0] = mkdir(m, md0, # links(ino0, dirs), m1, entries), dent = negdentry(str), err = ESUCCESS, ino ≠ 0, afs-cons(dirs, files), ispath(q, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pw(user, md0), px(user, md0), px-parent(user, q, ROOT_INO, dirs, files), ino0 ∈ dirs, ¬ ino ∈ dirs, ¬ ino ∈ files, ¬ str ∈ entries, links(ino0, dirs) ≠ ∅ ∨ ino0 = ROOT_INO ⊦ [afs_mkdir_ino#(ino0, md, ino; dent, err, dirs); afs_inode_sync#(mkinode(ino0, md0, true, m0, m1, m); dirs, files); inode := (ino0 ∈ dirs ⊃ mkinode(ino0, dirs[ino0].meta, true, dirs[ino0].nlink, dirs[ino0].nsubdirs, dirs[ino0].size) ;mkinode(ino0, files[ino0].meta, false, files[ino0].nlink, 0, files[ino0].size) ); c_inode := getinode(dent.ino, dirs, files); asynced := ?] (afs-cons(dirs, files) → of-cons(of, dirs, files))
Used simplifier rules: ⊦ mkdir(m, md, m0, m1, entries) = mkdir(m2, md0, m3, m4, entries0) ↔ m = m2 ∧ md = md0 ∧ m0 = m3 ∧ m1 = m4 ∧ entries = entries0; (ws)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)