| str + p0 ∈ tree, ∀ tree, tree0. p0 ∈ tree → p0 ∈ tree[p0, tree0] ⊦ str + p0 ∈ tree[str + p0, tree0] |
⊦ p + q ∈ tree ↔ p ∈ tree ∧ q ∈ tree[p]
⊦ p ∈ tree → tree[p + q, tree0] = tree[p, tree[p][q, tree0]]
⊦ p ∈ tree → tree[p, tree0][p] = tree0
str ' ∈ tree, p0 ∈ tree[str '], ∀ tree, tree0. p0 ∈ tree → p0 ∈ tree[p0, tree0] ⊦ str ' ∈ tree[str ', tree[str '][p0, tree0]] ∧ p0 ∈ tree[str '][p0, tree0]
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]];%same-at: ⊦ p ∈ tree → tree[p, tree0][p] = tree0;%a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ str + p = str ' + p; (s)