| isdir0 ↔ isdir1, isrename ↔ false, isdir1 ↔ isrename0, root[q].dir? ↔ ino1 ∈ dirs, isdir ↔ false, dent = negdentry(str), err = ENOTDIR, err1 = err, err2 = ESUCCESS, err3 = ESUCCESS, fs = abs-files(files), ino = ino1, inode = getinode(ino, dirs, files), ¬ isrename0, root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs, files), of-cons(of, dirs, files), pre-iget(ino, dirs, files), px-parent(user, q, ROOT_INO, dirs, files), psynced → asynced ⊦ ⟨posix_unlink#(q + str ', user, abs-of(of); err0, root, fs; psynced)⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ err1 = err0), inode.directory, ¬ isdir ∧ isdir0 |
fs = abs-files(files), root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs, files), of-cons(of, dirs, files), px-parent(user, q, ROOT_INO, dirs, files), ROOT_INO ∈ dirs, ino1 ∈ files, ¬ root[q].dir?, ¬ ino1 ∈ dirs, psynced → asynced ⊦ ⟨posix_unlink#(q + str ', user, abs-of(of); err0, root, fs; psynced)⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ ENOTDIR = err0)
Used simplifier rules: path-in-dirs: p ≠ ε ⊦ ispath(p, n, m, dirs, files) → n ∈ dirs; (forward) from specification afs-base% ⊦ mkinode(m, md, boolvar, m0, m1, m2).directory ↔ boolvar; (s)% ⊦ px-parent(user, ε, ino, dirs, files); (s)% ⊦ tree[ε] = tree; (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)% ⊦ valid-ino(ino, dirs, files) ↔ ino ∈ dirs ∨ ino ∈ files; (s)% ⊦ pre-iget(ino, dirs, files) ↔ valid-ino(ino, dirs, files); (s)