| files[m] = mkfile(m0, md1, # links(m, dirs), content), dirs[m1] = mkdir(m5, md0, m6, m7, entries0), root[q + str '] = fnode(⌜m⌝ ), dirs[m9] = mkdir(# entries, md, # links(m9, dirs), m4, entries), root[q].dir?, root.dir?, dom of < ino6, (_∃(λ ino1. abs|(root, ROOT_INO, q, ino1) * abs(root[q], ino1)))(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, m9, dirs, files), ispath(path, ROOT_INO, m, dirs, files), of-cons(of, dirs, files), pr(user, md1), px-parent(user, path, ROOT_INO, dirs, files), entries[str] ∈ files, str ∈ entries, m9 ∈ dirs, str ' ∈ root[q], m ∈ files, ROOT_INO ∈ dirs, q ∈ root, psynced → asynced ⊦ # links(⌜m⌝ , root) = 0, # links(m, dirs) = count(⌜m⌝ , root.fids), links(⌜m⌝ , root) = ∅, m = entries[str], root[path].dir?, entries[str] ∈ dirs, m ∈ dirs |
files[m] = mkfile(m0, md1, # links(m, dirs), content), dirs[m1] = mkdir(m5, md0, m6, m7, entries0), root[q + str '] = fnode(⌜m⌝ ), dirs[m9] = mkdir(# entries, md, # links(m9, dirs), m4, entries), ((abs|(root, ROOT_INO, q, m9) * abs(root[q], m9)))(dirs), root[q].dir?, root.dir?, dom of < ino6, afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, m9, dirs, files), ispath(path, ROOT_INO, m, dirs, files), of-cons(of, dirs, files), pr(user, md1), px-parent(user, path, ROOT_INO, dirs, files), entries[str] ∈ files, str ∈ entries, m9 ∈ dirs, str ' ∈ root[q], m ∈ files, ROOT_INO ∈ dirs, q ∈ root, psynced → asynced ⊦ # links(⌜m⌝ , root) = 0, # links(m, dirs) = count(⌜m⌝ , root.fids), links(⌜m⌝ , root) = ∅, m = entries[str], root[path].dir?, entries[str] ∈ dirs, m ∈ dirs
Used simplifier rules: absc-path: ⊦ p ∈ tree ∧ ((abs|(tree, ino, p, ino0) * D))(dirs) ∧ ispath(p, ino, ino1, dirs, files) → ino0 = ino1; (forward) from specification vfs-abs%sep-com: ⊦ D * D0 = D0 * D; from specification heap-sep[dir-heap]%sep-ass: ⊦ (D * D0) * D1 = D * D0 * D1; from specification heap-sep[dir-heap]% ⊦ (_∃ nD)(dirs) ↔ (∃ ino. nD(ino)(dirs)); (s)