| ((abs(tree, ino) * D))(dirs), ispath(str + p0, ino, ino0, dirs, files), ∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs, ∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files, ∀ tree, ino, D, dirs, ino0, files. ((abs(tree, ino) * D))(dirs) ∧ ispath(p0, ino, ino0, dirs, files) ∧ (∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files) ∧ (∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs) → (tree[p0].dir? ↔ ino0 ∈ dirs) ⊦ tree[str + p0].dir? ↔ ino0 ∈ dirs |
((abs(tree, ino) * D))(dirs), ispath(p0, dirs[ino].entries[str], ino0, dirs, files), ino ∈ dirs, str ∈ dirs[ino].entries, ∀ tree, ino, D, dirs, ino0, files. ((abs(tree, ino) * D))(dirs) ∧ ispath(p0, ino, ino0, dirs, files) ∧ (∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files) ∧ (∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs) → (tree[p0].dir? ↔ ino0 ∈ dirs), ∀ ino. ⌜ino⌝ ∈ tree.fids → ino ∈ files, ∀ ino. ¬ ino ∈ files ∨ ¬ ino ∈ dirs ⊦ tree[str ' + p0].dir? ↔ ino0 ∈ dirs
Used simplifier rules: a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ valid-dir-ino(ino, dirs, files) ↔ ino ∈ dirs; (s)%⊦ ispath(str ' + p, n, m, dirs, files) ↔ valid-dir-ino(n, dirs, files) ∧ str ∈ dirs[n].entries ∧ ispath(p, dirs[n].entries[str], m, dirs, files); (s)% ⊦ str + p = str ' + p; (s)