| tree = dnode(md, sdt), p0 ∈ tree[str '], str ' ∈ tree, ∀ 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]] |
⊦ dnode(md, sdt)[str ', tree0] = dnode(md, sdt[str, tree0])
⊦ str ' ∈ dnode(md, sdt) ↔ str ∈ sdt
str ∈ sdt ⊦ dnode(md, sdt)[str '] = sdt[str]
str ∈ sdt, p0 ∈ sdt[str], ∀ tree, tree0, tree1. p0 ∈ tree → tree[p0, tree0][p0, tree1] = tree[p0, tree1] ⊦ dnode(md, sdt[str, sdt[str][p0, tree0]])[str ' + p0, tree1] = dnode(md, sdt[str, sdt[str][p0, tree1]])
Used simplifier rules: put-here: ⊦ dnode(md, sdt)[str ', tree0] = dnode(md, sdt[str, tree0]);%one-ind: ⊦ str ' ∈ dnode(md, sdt) ↔ str ∈ sdt;%one-at: str ∈ sdt ⊦ dnode(md, sdt)[str '] = sdt[str];