| tree[str + p0] = fnode(fid), str + p0 ∈ tree, ∀ tree, fid. tree[p0] = fnode(fid) ∧ p0 ∈ tree → fid ∈ tree.fids ⊦ fid ∈ tree.fids |
tree[str ' + p0] = fnode(fid), str ' ∈ tree, p0 ∈ tree[str '], ∀ tree, fid. tree[p0] = fnode(fid) ∧ p0 ∈ tree → fid ∈ tree.fids ⊦ fid ∈ tree.fids
Used simplifier rules: a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ p + q ∈ tree ↔ p ∈ tree ∧ q ∈ tree[p]; (s)% ⊦ str + p = str ' + p; (s)