| # links(entries[str], dirs) = c_inode.nlink, # links(m, dirs) = dirs[m].nlink, c_inode.ino = entries[str], dirs[entries[str]] = mkdir(c_inode.size, md1, c_inode.nlink, c_inode.nsubdirs, ∅), dirs[m] = mkdir(dirs[m].size, md0, dirs[m].nlink, dirs[m].nsubdirs, entries), entries[str] = dirs[m].entries[str], ino = mkdentry(str, entries[str]).ino, p_ino = m, mkdentry(str, entries[str]).dentry?, c_inode.directory, afs-cons(dirs, files), m ∈ dirs, str ∈ entries, entries[str] ∈ dirs, str ∈ dirs[m].entries, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size ≥ 1, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino ] .nsubdirs ≥ 1, links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟨files1 := files; files0 := files; dirs1 := dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino ] .nsubdirs:= ( dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino ] .nsubdirs - 1) ]; afs_drop_nlink#(ino; dirs1, files); dent := negdentry(mkdentry(str, entries[str]).name); afs_inode_sync#(mkinode(m, md, true, # links(m, dirs), 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) ∧ files1 \ orphans(dirs, files1) = files \ orphans(dirs1, files)), ⟨fail#(; ; err); asynced := ?⟩ asynced, entries[str] = ROOT_INO |
# links(m, dirs) = dirs[m].nlink, # links(entries[str], dirs) = c_inode.nlink, c_inode.ino = entries[str], entries[str] = dirs[m].entries[str], dirs[m] = mkdir(dirs[m].size, md0, dirs[m].nlink, dirs[m].nsubdirs, entries), dirs[entries[str]] = mkdir(c_inode.size, md1, c_inode.nlink, c_inode.nsubdirs, ∅), files1 = files, ino = mkdentry(str, entries[str]).ino, p_ino = m, mkdentry(str, entries[str]).dentry?, c_inode.directory, afs-cons(dirs, files), str ∈ dirs[m].entries, entries[str] ∈ dirs, str ∈ entries, m ∈ dirs, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino ] .nsubdirs ≥ 1, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size ≥ 1, links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟨files0 := files; dirs1 := dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino ] .nsubdirs:= ( dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)] [p_ino, dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= (dirs[p_ino].entries -- mkdentry(str, entries[str]).name)][p_ino].size - 1) ] [p_ino ] .nsubdirs - 1) ]; afs_drop_nlink#(ino; dirs1, files); dent := negdentry(mkdentry(str, entries[str]).name); afs_inode_sync#(mkinode(m, md, true, # links(m, dirs), 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) ∧ files1 \ orphans(dirs, files1) = files \ orphans(dirs1, files)), ⟨fail#(; ; err); asynced := ?⟩ asynced, entries[str] = ROOT_INO