| tree[p3] = dnode(md, sdt), ((m => mkdir(# entries, md, m1, m2, entries) * abs(sdt, entries) * abs|(tree, ino0, p3, m)))(dirs), tree[p3 + str0 ' + p1].dir?, tree[p3 + str ' + p0].dir?, tree[p3].dir?, ispath(p0, entries[str], ino1, dirs, files), ispath(p3, ino0, m, dirs, files), ispath(p1, entries[str0], ino1, dirs, files), str ∈ entries, str0 ∈ entries, p3 ∈ tree, ino0 ∈ dirs, p1 ∈ tree[p3][str0 '], str0 ' ∈ tree[p3], p0 ∈ tree[p3][str '], str ' ∈ tree[p3], ino1 ∈ dirs, str ∈ sdt, str0 ∈ sdt, ∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files, ∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs ⊦ str = str0 |
⊦ str ∈ sdi ∧ ((abs(sdt, sdi) * D))(dirs) → str ∈ sdt
tree[p3] = dnode(md, sdt), ((m => mkdir(# entries, md, m1, m2, entries) * abs(sdt, entries) * abs|(tree, ino0, p3, m)))(dirs), tree[p3 + str0 ' + p1].dir?, tree[p3 + str ' + p0].dir?, ispath(p0, entries[str], ino1, dirs, files), ispath(p3, ino0, m, dirs, files), ispath(p1, entries[str0], ino1, dirs, files), ino1 ∈ dirs, str ∈ entries, str0 ∈ entries, p3 ∈ tree, ino0 ∈ dirs, p1 ∈ sdt[str0], str0 ∈ sdt, p0 ∈ sdt[str], str ∈ sdt, ∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files, ∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs ⊦ str = str0
Used simplifier rules: entries-dom1: ⊦ str ∈ sdi ∧ ((abs(sdt, sdi) * D))(dirs) → str ∈ sdt;% ⊦ str ' ∈ dnode(md, sdt) ↔ str ∈ sdt; (s)%str ∈ sdt ⊦ dnode(md, sdt)[str '] = sdt[str]; (s)% ⊦ dnode(md, sdt).dir?; (s)%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]