| tree[p] = dnode(md0, sdt), entries[str] = ROOT_INO, (( ino => mkdir(# entries, md0, # links(ino, dirs), m2, entries) * (abs(sdt -- str, entries -- str) * abs(sdt[str], ROOT_INO)) * abs|(tree, ROOT_INO, p, ino)) )(dirs), abs(tree, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(tree, abs-files(files), ofh), ispath(p, ROOT_INO, ino, dirs, files), str ∈ sdt, str ∈ entries ⊦ sdt[str].dir? |
∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs, ∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files, ((abs(tree, ino) * D))(dirs), ispath(p, ino, ino0, dirs, files) ⊦ tree[p].dir? ↔ ino0 ∈ dirs
entries[str] = ROOT_INO, tree[p] = dnode(md0, sdt), (( ino => mkdir(# entries, md0, # links(ino, dirs), m2, entries) * (abs(sdt -- str, entries -- str) * abs(sdt[str], ROOT_INO)) * abs|(tree, ROOT_INO, p, ino)) )(dirs), abs(tree, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(tree, abs-files(files), ofh), ispath(p, ROOT_INO, ino, dirs, files), str ∈ entries, str ∈ sdt ⊦ sdt[str].dir?, (∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs) ∧ (∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files) ∧ ((abs(tree, ROOT_INO) * emp))(dirs) ∧ ispath(p + str, ROOT_INO, entries[str], dirs, files)
tree[p + str].dir? ↔ entries[str] ∈ dirs, entries[str] = ROOT_INO, tree[p] = dnode(md0, sdt), (( ino => mkdir(# entries, md0, # links(ino, dirs), m2, entries) * (abs(sdt -- str, entries -- str) * abs(sdt[str], ROOT_INO)) * abs|(tree, ROOT_INO, p, ino)) )(dirs), abs(tree, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(tree, abs-files(files), ofh), ispath(p, ROOT_INO, ino, dirs, files), str ∈ entries, str ∈ sdt ⊦ sdt[str].dir?
Used terms: files, dirs, tree, ROOT_INO, emp, p + str, entries[str]