| 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 ⊦ |
⊦ tree.dir? → abs(tree, ino) = _∃(λ ad. ino => ad * abs(tree.entries, ad.entries) ∧ ⌜ad.meta = tree.meta⌝ ∧ ⌜ad.size = # ad.entries⌝ )
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?
entries[str] = ROOT_INO, tree[p] = dnode(md0, sdt), (( ino => mkdir(# entries, md0, # links(ino, dirs), m2, entries) * ( abs(sdt -- str, entries -- str) * _∃(λ ad. ROOT_INO => ad * abs(sdt[str].entries, ad.entries) ∧ ⌜ad.meta = sdt[str].meta⌝ ∧ ⌜ad.size = # ad.entries⌝ )) * abs|(tree, ROOT_INO, p, ino)) )(dirs), sdt[str].dir?, 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 ⊦
Used terms: ROOT_INO, sdt[str]