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