| m5 + 1 = fs[ri[inodekey(m0)]].nlink, 0 = fs[ri[inodekey(m0)]].nsubdirs, fs[ri[dentrykey(m, str)]] = dentrynode(key, m0), fs[ri[inodekey(m)]] = inodenode(key0, md1, true, m1, m2, m3), dirs = abs-dirs(fs, ri), files = abs-files(fs, ri), old_dent = mkdentry(str, m0), p_inode0 = mkinode(m, md, true, m1, m2, m3), p_inode1 = mkinode(m0, md0, false, m5 + 1, 0, m6), m ≠ 0, m0 ≠ 0, m0 ≠ ROOT_INO, m3 ≠ 0, fo.inodes?, orphans(fs, ri).inodes?, afs-cons(abs-dirs(fs, ri), abs-files(fs, ri)), file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, orphans(fs, ri)), replay-cons-strong(fs, ri, orphans(fs, ri), fi, fo, log), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), dentrykey(m, str) ∈ ri, ri[dentrykey(m, str)] ∈ fs, inodekey(m0) ∈ ri, ri[inodekey(m)] ∈ fs, inodekey(m) ∈ ri, 1 ≤ m3, ¬ fs[ri[inodekey(m0)]].directory, m5 = 0 → links(m0, fs, ri) = ∅ ++ dentrykey(m, str), asynced → boolvar0, ∀ adr0, adr1, adr2. adr0 ∈ fs ∨ adr1 ∈ fs ∨ adr2 ∈ fs ∨ adr0 = adr1 ∨ adr0 = adr2 ∨ adr1 = adr2, links(m, abs-dirs(fs, ri)) ≠ ∅ ∨ m = ROOT_INO, m1 ≠ 0 ∨ m = ROOT_INO ⊦ ⟨afs_unlink#(; p_inode0, p_inode1, old_dent, err0, dirs, files; asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ (asynced → boolvar) ∧ mkinode(m, md, true, m1, m2, m3) = p_inode0 ∧ mkinode(m0, md0, false, m5 + 1, 0, m6) = p_inode1 ∧ mkdentry(str, m0) = old_dent ∧ ENOSPC = err0) |
m5 + 1 = fs[ri[inodekey(m0)]].nlink, 0 = fs[ri[inodekey(m0)]].nsubdirs, fs[ri[inodekey(m)]] = inodenode(key0, md1, true, m1, m2, m3), fs[ri[dentrykey(m, str)]] = dentrynode(key, m0), c_inode = p_inode1, dent = old_dent, dirs = abs-dirs(fs, ri), err = err0, files = abs-files(fs, ri), old_dent = mkdentry(str, m0), p_inode = p_inode0, p_inode0 = mkinode(m, md, true, m1, m2, m3), p_inode1 = mkinode(m0, md0, false, m5 + 1, 0, m6), orphans(fs, ri).inodes?, fo.inodes?, afs-cons(abs-dirs(fs, ri), abs-files(fs, ri)), file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, orphans(fs, ri)), replay-cons-strong(fs, ri, orphans(fs, ri), fi, fo, log), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), inodekey(m) ∈ ri, ri[inodekey(m)] ∈ fs, inodekey(m0) ∈ ri, ri[dentrykey(m, str)] ∈ fs, dentrykey(m, str) ∈ ri, 1 ≤ m3, asynced → boolvar0, m5 = 0 → links(m0, fs, ri) = ∅ ++ dentrykey(m, str), ∀ adr0, adr1, adr2. adr0 ∈ fs ∨ adr1 ∈ fs ∨ adr2 ∈ fs ∨ adr0 = adr1 ∨ adr0 = adr2 ∨ adr1 = adr2, m1 ≠ 0 ∨ m = ROOT_INO, links(m, abs-dirs(fs, ri)) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟨if pre-unlink(p_inode, c_inode, dent, dirs, files) then { let p_ino = p_inode.ino in {dirs[p_ino].entries := dirs[p_ino].entries -- dent.name; dirs[p_ino].size := dirs[p_ino].size - 1; let ino = dent.ino in afs_drop_nlink#(ino; dirs, files); dent := negdentry(dent.name); afs_inode_sync#(p_inode; dirs, files); afs_inode_sync#(c_inode; dirs, files); p_inode := getinode(p_inode.ino, dirs, files); c_inode := getinode(c_inode.ino, dirs, files); err := ESUCCESS} or fail#(; ; err); asynced := ?} else abort⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ (asynced → boolvar) ∧ mkinode(m, md, true, m1, m2, m3) = p_inode ∧ mkinode(m0, md0, false, m5 + 1, 0, m6) = c_inode ∧ mkdentry(str, m0) = dent ∧ ENOSPC = err), m = 0, m0 = 0, m0 = ROOT_INO, m3 = 0, fs[ri[inodekey(m0)]].directory
Used simplifier rules: afs_unlink#(; P_INODE, C_INODE, DENT, ERR, DIRS, FILES; ASYNCED) {if pre-unlink(P_INODE, C_INODE, DENT, DIRS, FILES) then { let P_INO = P_INODE.ino in {DIRS[P_INO].entries := DIRS[P_INO].entries -- DENT.name; DIRS[P_INO].size := DIRS[P_INO].size - 1; let INO = DENT.ino in afs_drop_nlink#(INO; DIRS, FILES); DENT := negdentry(DENT.name); afs_inode_sync#(P_INODE; DIRS, FILES); afs_inode_sync#(C_INODE; DIRS, FILES); P_INODE := getinode(P_INODE.ino, DIRS, FILES); C_INODE := getinode(C_INODE.ino, DIRS, FILES); ERR := ESUCCESS} or fail#(; ; ERR); ASYNCED := ?} else abort };