| root[q + str '] = fnode(⌜m⌝ ), dirs[m1] = mkdir(m5, md0, m6, m7, entries0), files[m] = mkfile(m0, md1, # links(m, dirs), content), root[q] = dnode(md, sdt), ((m9 => mkdir(# entries, md, # links(m9, dirs), m4, entries) * abs(sdt, entries) * abs|(root, ROOT_INO, q, m9)))(dirs), root.dir?, root[q].dir?, dom of < ino6, afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(path, ROOT_INO, m, dirs, files), ispath(q, ROOT_INO, m9, dirs, files), of-cons(of, dirs, files), pr(user, md1), px-parent(user, path, ROOT_INO, dirs, files), str ∈ entries, q ∈ root, ROOT_INO ∈ dirs, m ∈ files, str ' ∈ root[q], entries[str] ∈ files, str ∈ sdt, psynced → asynced ⊦ # links(m, dirs) = count(⌜m⌝ , root.fids), # links(⌜m⌝ , root) = 0, links(⌜m⌝ , root) = ∅, m = entries[str], root[path].dir?, m ∈ dirs, entries[str] ∈ dirs |
root[q + str '] = fnode(⌜m⌝ ), dirs[m1] = mkdir(m5, md0, m6, m7, entries0), files[m] = mkfile(m0, md1, # links(m, dirs), content), root[q] = dnode(md, sdt), ((m9 => mkdir(# entries, md, # links(m9, dirs), m4, entries) * abs(sdt, entries) * abs|(root, ROOT_INO, q, m9)))(dirs), root.dir?, dom of < ino6, afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(path, ROOT_INO, m, dirs, files), ispath(q, ROOT_INO, m9, dirs, files), of-cons(of, dirs, files), pr(user, md1), px-parent(user, path, ROOT_INO, dirs, files), entries[str] ∈ files, str ∈ entries, q ∈ root, ROOT_INO ∈ dirs, m ∈ files, str ∈ sdt, psynced → asynced ⊦ # links(m, dirs) = count(⌜m⌝ , root.fids), # links(⌜m⌝ , root) = 0, links(⌜m⌝ , root) = ∅, m = entries[str], root[path].dir?, m ∈ dirs, entries[str] ∈ dirs
Used simplifier rules: ⊦ str ' ∈ dnode(md, sdt) ↔ str ∈ sdt; (s)% ⊦ dnode(md, sdt).dir?; (s)%entries-dom1: ⊦ str ∈ sdi ∧ ((abs(sdt, sdi) * D))(dirs) → str ∈ sdt; (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]