| 0 = fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nsubdirs, c_inode = mkinode(fs[ri[dentrykey(m, str)]].ino, md0, false, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink, 0, m6), dent = mkdentry(str, fs[ri[dentrykey(m, str)]].ino), dirs = abs-dirs(fs, ri), err = err0, files = abs-files(fs, ri), m0 = fs[ri[inodekey(m)]].nlink, m1 = fs[ri[inodekey(m)]].nsubdirs, m2 = fs[ri[inodekey(m)]].size, m3 = fs[ri[dentrykey(m, str)]].ino, m4 = fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink, p_inode = mkinode(m, md, true, fs[ri[inodekey(m)]].nlink, fs[ri[inodekey(m)]].nsubdirs, fs[ri[inodekey(m)]].size), ro = orphans(fs, ri), fs[ri[inodekey(m)]].directory, 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-inj(ri), ri-inj(fi), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), inodekey(m) ∈ ri, inodekey(fs[ri[dentrykey(m, str)]].ino) ∈ ri, dentrykey(m, str) ∈ ri, 1 ≤ fs[ri[inodekey(m)]].size, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink = 1 → links(fs[ri[dentrykey(m, str)]].ino, fs, ri) = ∅ ++ dentrykey(m, str), asynced → boolvar, fs[ri[inodekey(m)]].nlink ≠ 0 ∨ m = ROOT_INO, links(m, abs-dirs(fs, ri)) ≠ ∅ ∨ m = ROOT_INO ⊦ [if pre-unlink(p_inode, c_inode, dent, fs, ri, ro) then choose ino, adr1, adr0, adr, key1, key0, key, nd1, nd0, nd with ino = c_inode.ino in {key1 := inodekey(p_inode.ino); key0 := dentrykey(p_inode.ino, dent.name); key := inodekey(c_inode.ino); nd1 := inodenode(key1, p_inode.meta, p_inode.directory, p_inode.nlink, p_inode.nsubdirs, p_inode.size - 1); nd0 := dentrynode(key0, 0); nd := inodenode(key, c_inode.meta, c_inode.directory, c_inode.nlink - 1, c_inode.nsubdirs, c_inode.size); aubifs_core_journal_add3#(nd1, nd0, nd, ri, fi, ro, fo; adr1, adr0, adr, fs, log; boolvar, err); if err = ESUCCESS then {aubifs_core_index_store#(key1, adr1, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_remove#(key0, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_store#(key, adr, fi, ro, fo, fs, log, boolvar; ri); if c_inode.nlink = 1 then aubifs_core_orphans_insert#(key, ri, fi, fo, fs, log, boolvar; ro); dent := negdentry(dent.name); p_inode := mkinode(p_inode.ino, nd1.meta, nd1.directory, nd1.nlink, nd1.nsubdirs, nd1.size); c_inode := mkinode(ino, nd.meta, nd.directory, nd.nlink, nd.nsubdirs, nd.size)}} else abort] ( ubifs-cons(fs, ri, ro, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro) ∧ ri-inj(ri) ∧ log-cons(log, fs) ∧ ro.inodes? → ⟨old_dent := mkdentry(str, m3); p_inode0 := mkinode(m, md, true, m0, m1, m2); p_inode1 := mkinode(m3, md0, false, m4, 0, m6); afs_unlink#(; p_inode0, p_inode1, old_dent, err0, dirs, files; asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro) ∧ (asynced → boolvar) ∧ p_inode = p_inode0 ∧ c_inode = p_inode1 ∧ dent = old_dent ∧ err = err0)), fs[ri[dentrykey(m, str)]].ino = ROOT_INO, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink = 0, fs[ri[inodekey(m)]].size = 0, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].directory |
0 = fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nsubdirs, c_inode = mkinode(fs[ri[dentrykey(m, str)]].ino, md0, false, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink, 0, m6), dent = mkdentry(str, fs[ri[dentrykey(m, str)]].ino), dirs = abs-dirs(fs, ri), err = err0, files = abs-files(fs, ri), m0 = fs[ri[inodekey(m)]].nlink, m1 = fs[ri[inodekey(m)]].nsubdirs, m2 = fs[ri[inodekey(m)]].size, m3 = fs[ri[dentrykey(m, str)]].ino, m4 = fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink, p_inode = mkinode(m, md, true, fs[ri[inodekey(m)]].nlink, fs[ri[inodekey(m)]].nsubdirs, fs[ri[inodekey(m)]].size), ro = orphans(fs, ri), fs[ri[inodekey(m)]].directory, 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-inj(fi), ri-inj(ri), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), dentrykey(m, str) ∈ ri, inodekey(fs[ri[dentrykey(m, str)]].ino) ∈ ri, inodekey(m) ∈ ri, 1 ≤ fs[ri[inodekey(m)]].size, asynced → boolvar, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink = 1 → links(fs[ri[dentrykey(m, str)]].ino, fs, ri) = ∅ ++ dentrykey(m, str), links(m, abs-dirs(fs, ri)) ≠ ∅ ∨ m = ROOT_INO, fs[ri[inodekey(m)]].nlink ≠ 0 ∨ m = ROOT_INO ⊦ [choose ino, adr1, adr0, adr, key1, key0, key, nd1, nd0, nd with ino = c_inode.ino in {key1 := inodekey(p_inode.ino); key0 := dentrykey(p_inode.ino, dent.name); key := inodekey(c_inode.ino); nd1 := inodenode(key1, p_inode.meta, p_inode.directory, p_inode.nlink, p_inode.nsubdirs, p_inode.size - 1); nd0 := dentrynode(key0, 0); nd := inodenode(key, c_inode.meta, c_inode.directory, c_inode.nlink - 1, c_inode.nsubdirs, c_inode.size); aubifs_core_journal_add3#(nd1, nd0, nd, ri, fi, ro, fo; adr1, adr0, adr, fs, log; boolvar, err); if err = ESUCCESS then {aubifs_core_index_store#(key1, adr1, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_remove#(key0, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_store#(key, adr, fi, ro, fo, fs, log, boolvar; ri); if c_inode.nlink = 1 then aubifs_core_orphans_insert#(key, ri, fi, fo, fs, log, boolvar; ro); dent := negdentry(dent.name); p_inode := mkinode(p_inode.ino, nd1.meta, nd1.directory, nd1.nlink, nd1.nsubdirs, nd1.size); c_inode := mkinode(ino, nd.meta, nd.directory, nd.nlink, nd.nsubdirs, nd.size)}}] ( ubifs-cons(fs, ri, ro, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro) ∧ ri-inj(ri) ∧ log-cons(log, fs) ∧ ro.inodes? → ⟨old_dent := mkdentry(str, m3); p_inode0 := mkinode(m, md, true, m0, m1, m2); p_inode1 := mkinode(m3, md0, false, m4, 0, m6); afs_unlink#(; p_inode0, p_inode1, old_dent, err0, dirs, files; asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro) ∧ (asynced → boolvar) ∧ p_inode = p_inode0 ∧ c_inode = p_inode1 ∧ dent = old_dent ∧ err = err0)), fs[ri[dentrykey(m, str)]].ino = ROOT_INO, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].nlink = 0, fs[ri[inodekey(m)]].size = 0, fs[ri[inodekey(fs[ri[dentrykey(m, str)]].ino)]].directory
Used simplifier rules: ⊦ pre-unlink(p_inode, c_inode, dent, fs, ri, ro) ↔ dent.ino ≠ ROOT_INO ∧ valid-dentry(p_inode.ino, dent, fs, ri, ro) ∧ ¬ inodekey(dent.ino) ∈ ro ∧ fs[ri[inodekey(dent.ino)]].nlink ≠ 0 ∧ ( fs[ri[inodekey(dent.ino)]].nlink = 1 → links(dent.ino, fs, ri) = {dentrykey(p_inode.ino, dent.name)} ) ∧ valid-dir-inode(p_inode, fs, ri) ∧ valid-file-inode(c_inode, fs, ri) ∧ c_inode.ino = dent.ino ∧ p_inode.size ≥ 1; (s)% ⊦ mkdentry(str, m).ino = m; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)%⊦ valid-dentry(ino, dent, fs, ri, ro) ↔ dent.dentry? ∧ valid-parent-ino(ino, fs, ri, ro) ∧ valid-ino(dent.ino, fs, ri) ∧ dentrykey(ino, dent.name) ∈ ri ∧ fs[ri[dentrykey(ino, dent.name)]].ino = dent.ino; (s)% ⊦ mkdentry(str, m).dentry?; (s)%⊦ valid-parent-ino(ino, fs, ri, ro) ↔ ( valid-dir-ino(ino, fs, ri) ∧ (fs[ri[inodekey(ino)]].nlink ≠ 0 ∨ ino = ROOT_INO)) ∧ ¬ inodekey(ino) ∈ ro; (s)%⊦ valid-dir-ino(ino, fs, ri) ↔ inodekey(ino) ∈ ri ∧ fs[ri[inodekey(ino)]].directory; (s)%⊦ dentrykey(ino, str) ∈ ri ∧ ubifs-cons(fs, ri, ro, fi, fo, log) → fs[ri[inodekey(ino)]].directory; (ss)%⊦ key ∈ orphans(fs, ri) ↔ key.inode? ∧ key ∈ ri ∧ fs[ri[key]].nlink = 0 ∧ key.ino ≠ ROOT_INO; (s)% ⊦ inodekey(m).inode?; (s)% ⊦ inodekey(m).ino = m; (s)% ⊦ valid-ino(ino, fs, ri) ↔ inodekey(ino) ∈ ri; (s)% ⊦ mkdentry(str, m).name = str; (s)% ⊦ {key} = ∅ ++ key; (s)%⊦ valid-dir-inode(inode, fs, ri) ↔ valid-dir-ino(inode.ino, fs, ri) ∧ (inode.directory ↔ fs[ri[inodekey(inode.ino)]].directory) ∧ inode.nlink = fs[ri[inodekey(inode.ino)]].nlink ∧ inode.nsubdirs = fs[ri[inodekey(inode.ino)]].nsubdirs ∧ inode.size = fs[ri[inodekey(inode.ino)]].size; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).directory ↔ boolvar; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).nlink = m0; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).nsubdirs = m1; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)%⊦ valid-file-inode(inode, fs, ri) ↔ valid-file-ino(inode.ino, fs, ri) ∧ (inode.directory ↔ fs[ri[inodekey(inode.ino)]].directory) ∧ inode.nlink = fs[ri[inodekey(inode.ino)]].nlink ∧ inode.nsubdirs = fs[ri[inodekey(inode.ino)]].nsubdirs; (s)%⊦ valid-file-ino(ino, fs, ri) ↔ inodekey(ino) ∈ ri ∧ ¬ fs[ri[inodekey(ino)]].directory; (s)% ⊦ n ≥ m ↔ m ≤ n; (s)