| str + p0 ∈ tree, ∀ tree, tree0, tree1. p0 ∈ tree → tree[p0, tree0][p0, tree1] = tree[p0, tree1] ⊦ tree[str + p0, tree0][str + p0, tree1] = tree[str + p0, tree1] |
⊦ p + q ∈ tree ↔ p ∈ tree ∧ q ∈ tree[p]
⊦ p ∈ tree → tree[p + q, tree0] = tree[p, tree[p][q, tree0]]
str ' ∈ tree, p0 ∈ tree[str '], ∀ tree, tree0, tree1. p0 ∈ tree → tree[p0, tree0][p0, tree1] = tree[p0, tree1] ⊦ tree[str ', tree[str '][p0, tree0]][str ' + p0, tree1] = tree[str ', tree[str '][p0, tree1]]
Used simplifier rules: split-in: ⊦ p + q ∈ tree ↔ p ∈ tree ∧ q ∈ tree[p];%split-put: ⊦ p ∈ tree → tree[p + q, tree0] = tree[p, tree[p][q, tree0]];%a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ str + p = str ' + p; (s)