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