| # entries0 = m + 1, dirs2[ino].nlink = 0, (entries0[str] ∈ dirs2 ⊃ mkinode(entries0[str], dirs2[entries0[str]].meta, true, dirs2[entries0[str]].nlink, dirs2[entries0[str]].nsubdirs, dirs2[entries0[str]].size) ;mkinode(entries0[str], files[entries0[str]].meta, false, files[entries0[str]].nlink, 0, files[entries0[str]].size) ) = mkinode(m5, md3, boolvar, m6, m7, m8), dirs1[entries0[str]] = mkdir(m0, md0, m1, m4, entries), dirs0[entries0[str]] = mkdir(0, md, # links(entries0[str], dirs0), m3, ∅), dirs0[ino1] = mkdir(m + 1, md2, # links(ino1, dirs0), m2, entries0), root[q + str '] = dnode(md1, ∅), err = ESUCCESS, fs = abs-files(files), ino = inode.ino, inode = getinode(entries0[str], dirs2, files), root.dir?, root[q].dir?, dom of < ino0, abs(root, ROOT_INO)(dirs0), afs-cons(dirs, files), afs-cons(dirs0, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs0, files), of-cons(of, dirs, files), of-cons(of, dirs0, files), pre-evict(inode, dirs2, files), pw(user, md2), px(user, md2), px-parent(user, q, ROOT_INO, dirs0, files), ino ∈ dirs2, str ∈ entries0, ino1 ∈ dirs0, entries0[str] ∈ dirs0, entries0[str] ∈ dirs1, dirs1 ≡ dirs0[ino1, mkdir(m, md2, # links(ino1, dirs0), m2 - 1, entries0 -- str)], dirs2 ≡ dirs1[entries0[str], mkdir(m0, md, m1 - 1, m4, entries)], dirs ≡ dirs2 -- ino, 1 ≤ m1, 1 ≤ m2, psynced → asynced0, links(ino1, dirs0) ≠ ∅ ∨ ino1 = ROOT_INO ⊦ ⟨posix_rmdir#(q + str ', user, fs, abs-of(of); err1, root; psynced)⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ ESUCCESS = err1), entries0 = ∅, m1 = 0, m2 = 0, is-open(m5, of), ino1 ∈ dirs1, ino1 ∈ dirs2 |
# entries0 = m + 1, dirs2[m5].nlink = 0, (entries0[str] ∈ dirs2 ⊃ mkinode(entries0[str], dirs2[entries0[str]].meta, true, dirs2[entries0[str]].nlink, dirs2[entries0[str]].nsubdirs, dirs2[entries0[str]].size) ;mkinode(entries0[str], files[entries0[str]].meta, false, files[entries0[str]].nlink, 0, files[entries0[str]].size) ) = mkinode(m5, md3, boolvar, m6, m7, m8), dirs1[entries0[str]] = mkdir(m0, md0, m1, m4, entries), dirs0[entries0[str]] = mkdir(0, md, # links(entries0[str], dirs0), m3, ∅), dirs0[ino1] = mkdir(m + 1, md2, # links(ino1, dirs0), m2, entries0), root[q + str '] = dnode(md1, ∅), entries0 ≠ ∅, m1 ≠ 0, m2 ≠ 0, m5 ≠ ROOT_INO, root.dir?, root[q].dir?, dom of < ino0, abs(root, ROOT_INO)(dirs0), afs-cons(dirs, files), afs-cons(dirs0, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs0, files), of-cons(of, dirs, files), of-cons(of, dirs0, files), pw(user, md2), px(user, md2), px-parent(user, q, ROOT_INO, dirs0, files), m5 ∈ dirs2, str ∈ entries0, ino1 ∈ dirs0, entries0[str] ∈ dirs0, entries0[str] ∈ dirs1, dirs1 ≡ dirs0[ino1, mkdir(m, md2, # links(ino1, dirs0), m2 - 1, entries0 -- str)], dirs2 ≡ dirs1[entries0[str], mkdir(m0, md, m1 - 1, m4, entries)], dirs ≡ dirs2 -- m5, 1 ≤ m1, 1 ≤ m2, ¬ is-open(m5, of), ¬ ino1 ∈ dirs2, ¬ ino1 ∈ dirs1, psynced → asynced0, links(ino1, dirs0) ≠ ∅ ∨ ino1 = ROOT_INO, m6 = 0 ∧ m8 = dirs2[m5].size ∧ m7 = dirs2[m5].nsubdirs ∧ boolvar ∨ m5 ∈ files ∧ m6 = files[m5].nlink ∧ m7 = 0 ∧ ¬ boolvar ⊦ ⟨posix_rmdir#(q + str ', user, abs-files(files), abs-of(of); err1, root; psynced)⟩ (abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ ESUCCESS = err1)
Used simplifier rules: ⊦ mkinode(m, md, boolvar, m0, m1, m2).directory ↔ boolvar; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).nsubdirs = m1; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).nlink = m0; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)%assign-new-other: ⊦ dirs ≡ dirs0[ino, ad] ∧ ¬ ino0 ∈ dirs0 ∧ ino ∈ dirs0 → ¬ ino0 ∈ dirs; (forward) from specification separation[dir-heap]% ⊦ valid-file-ino(ino, dirs, files) ↔ ino ∈ files; (s)%⊦ valid-file-inode(inode, dirs, files) ↔ valid-file-ino(inode.ino, dirs, files) ∧ inode.nlink = files[inode.ino].nlink ∧ inode.nsubdirs = 0 ∧ ¬ inode.directory; (s)% ⊦ valid-dir-ino(ino, dirs, files) ↔ ino ∈ dirs; (s)%⊦ valid-dir-inode(inode, dirs, files) ↔ valid-dir-ino(inode.ino, dirs, files) ∧ inode.nlink = dirs[inode.ino].nlink ∧ inode.size = dirs[inode.ino].size ∧ inode.nsubdirs = dirs[inode.ino].nsubdirs ∧ inode.directory; (s)%⊦ valid-wb-inode(inode, dirs, files) ↔ valid-dir-inode(inode, dirs, files) ∨ valid-file-inode(inode, dirs, files); (s)%⊦ pre-evict(inode, dirs, files) ↔ valid-wb-inode(inode, dirs, files) ∧ inode.ino ≠ ROOT_INO; (s)%⊦ getinode(ino, dirs, files) = (ino ∈ dirs ⊃ mkinode (ino, dirs[ino].meta, true, dirs[ino].nlink, dirs[ino].nsubdirs, dirs[ino].size) ;mkinode (ino, files[ino].meta, false, files[ino].nlink, 0, files[ino].size) ); (s)