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