| ((m => mkdir(# entries, tree[p].meta, # links(m, dirs), n1, entries) * abs(tree[p].entries, entries) * abs|(tree, ino, p, m)))(dirs), tree[p].dir?, afs-cons(dirs, files), fids-cons(tree, abs-files(files), ofh), ispath(p, ino, m, dirs, files), px-parent(user, p, ino, dirs, files), str ∈ tree[p].entries, entries[str] ∈ files, p ∈ tree, str ∈ entries ⊦ tree[p][str '] = fnode(fid) ↔ fid = ⌜entries[str]⌝ , tree[p][str '].dir?, entries[str] ∈ dirs |
tree[p] = dnode(md, sdt), ((m => mkdir(# entries, md, # links(m, dirs), n1, entries) * abs(sdt, entries) * abs|(tree, ino, p, m)))(dirs), tree[p].dir?, afs-cons(dirs, files), fids-cons(tree, abs-files(files), ofh), ispath(p, ino, m, dirs, files), px-parent(user, p, ino, dirs, files), str ∈ entries, p ∈ tree, entries[str] ∈ files, str ∈ sdt ⊦ tree[p][str '] = fnode(fid) ↔ fid = ⌜entries[str]⌝ , tree[p][str '].dir?, entries[str] ∈ dirs
Used simplifier rules: tree.dir? ⊦ md = tree.meta ∧ sdt = tree.entries ↔ tree = dnode(md, sdt); (elim) Used terms: tree[p], md, sdt