| # links(m, dirs) = dirs[m].nlink, # links(entries[str], dirs) = m1, entries[str] = dirs[m].entries[str], dirs[m] = mkdir(dirs[m].size, md0, dirs[m].nlink, dirs[m].nsubdirs, entries), dirs[entries[str]] = mkdir(m3, md1, m1, m2, ∅), boolvar, c_inode = mkinode(m0, md2, boolvar, m1, m2, m3), dirs1 = dirs[m, ((dirs[m].entries:= (dirs[m].entries -- str)).size:= (dirs[m].size - 1)).nsubdirs:= (dirs[m].nsubdirs - 1)], files0 = files, m0 = entries[str], afs-cons(dirs, files), str ∈ dirs[m].entries, entries[str] ∈ dirs, m ∈ dirs, str ∈ entries, 1 ≤ dirs[m].nsubdirs, 1 ≤ dirs[m].size, links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟨afs_drop_nlink#(mkdentry(str, entries[str]).ino; dirs1, files); dent := negdentry(mkdentry(str, entries[str]).name); afs_inode_sync#(mkinode(m, md, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size); dirs1, files); afs_inode_sync#(c_inode; dirs1, files); p_inode := (m ∈ dirs1 ⊃ mkinode(m, dirs1[m].meta, true, dirs1[m].nlink, dirs1[m].nsubdirs, dirs1[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); c_inode := (c_inode.ino ∈ dirs1 ⊃ mkinode(c_inode.ino, dirs1[c_inode.ino].meta, true, dirs1[c_inode.ino].nlink, dirs1[c_inode.ino].nsubdirs, dirs1[c_inode.ino].size) ;mkinode(c_inode.ino, files[c_inode.ino].meta, false, files[c_inode.ino].nlink, 0, files[c_inode.ino].size) ); err := ESUCCESS; asynced := ?⟩ (asynced ∧ dirs \ orphans(dirs, files0) = dirs1 \ orphans(dirs1, files) ∧ files0 \ orphans(dirs, files0) = files \ orphans(dirs1, files)), ⟨fail#(; ; err); asynced := ?⟩ asynced, dirs[m].nsubdirs = 0, dirs[m].size = 0, entries[str] = ROOT_INO |
# links(m, dirs) = dirs[m].nlink, dirs[entries[str]] = mkdir(m3, md1, # links(entries[str], dirs), m2, ∅), dirs[m] = mkdir(dirs[m].size, md0, dirs[m].nlink, dirs[m].nsubdirs, entries), entries[str] = dirs[m].entries[str], dirs1 = dirs[m, ((dirs[m].entries:= (dirs[m].entries -- str)).size:= (dirs[m].size - 1)).nsubdirs:= (dirs[m].nsubdirs - 1)], files0 = files, dirs[m].nsubdirs ≠ 0, dirs[m].size ≠ 0, entries[str] ≠ ROOT_INO, afs-cons(dirs, files), str ∈ entries, m ∈ dirs, entries[str] ∈ dirs, str ∈ dirs[m].entries, 1 ≤ dirs[m].size, 1 ≤ dirs[m].nsubdirs, links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟨fail#(; ; err); asynced := ?⟩ asynced, ⟨afs_drop_nlink#(mkdentry(str, entries[str]).ino; dirs1, files); dent := negdentry(mkdentry(str, entries[str]).name); afs_inode_sync#(mkinode(m, md, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size); dirs1, files); afs_inode_sync#(mkinode(entries[str], md2, true, # links(entries[str], dirs), m2, m3); dirs1, files); p_inode := (m ∈ dirs1 ⊃ mkinode(m, dirs1[m].meta, true, dirs1[m].nlink, dirs1[m].nsubdirs, dirs1[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); c_inode := (entries[str] ∈ dirs1 ⊃ mkinode(entries[str], dirs1[entries[str]].meta, true, dirs1[entries[str]].nlink, dirs1[entries[str]].nsubdirs, dirs1[entries[str]].size) ;mkinode(entries[str], files[entries[str]].meta, false, files[entries[str]].nlink, 0, files[entries[str]].size) ); err := ESUCCESS; asynced := ?⟩ (asynced ∧ dirs \ orphans(dirs, files0) = dirs1 \ orphans(dirs1, files) ∧ files0 \ orphans(dirs, files0) = files \ orphans(dirs1, files))
Used simplifier rules: ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)