| dnode(md, sdt)[str + p0] = dnode(md0, sdt0), q ∈ dnode(md, sdt)[str + p0, dnode(md1, sdt1)], str + p0 ∈ dnode(md, sdt), ∀ md, sdt, md0, sdt0, q, md1, sdt1. dnode(md, sdt)[p0] = dnode(md0, sdt0) ∧ p0 ∈ dnode(md, sdt) ∧ q ∈ dnode(md, sdt)[p0, dnode(md1, sdt1)] → dnode(md, sdt)[p0, dnode(md1, sdt1)][q] = (q ⊑ p0 ⊃ dnode(md, sdt)[q][restn(# q, p0), dnode(md1, sdt1)];dnode(md, sdt)[p0, dnode(md0, sdt1)][q]) ⊦ dnode(md, sdt)[str + p0, dnode(md1, sdt1)][q] = (q ⊑ str + p0 ⊃ dnode(md, sdt)[q][restn(# q, str + p0), dnode(md1, sdt1)];dnode(md, sdt)[str + p0, dnode(md0, sdt1)][q]) |
⊦ str ' + p ∈ dnode(md, sdt) ↔ str ∈ sdt ∧ p ∈ sdt[str]
⊦ str ∈ sdt → dnode(md, sdt)[str ' + p] = sdt[str][p]
sdt[str][p0] = dnode(md0, sdt0), str ∈ sdt, p0 ∈ sdt[str], q ∈ dnode(md, sdt)[str ' + p0, dnode(md1, sdt1)], ∀ md, sdt, md0, sdt0, q, md1, sdt1. dnode(md, sdt)[p0] = dnode(md0, sdt0) ∧ p0 ∈ dnode(md, sdt) ∧ q ∈ dnode(md, sdt)[p0, dnode(md1, sdt1)] → dnode(md, sdt)[p0, dnode(md1, sdt1)][q] = (q ⊑ p0 ⊃ dnode(md, sdt)[q][restn(# q, p0), dnode(md1, sdt1)];dnode(md, sdt)[p0, dnode(md0, sdt1)][q]) ⊦ dnode(md, sdt)[str ' + p0, dnode(md1, sdt1)][q] = (q ⊑ str ' + p0 ⊃ dnode(md, sdt)[q][restn(# q, str ' + p0), dnode(md1, sdt1)];dnode(md, sdt)[str ' + p0, dnode(md0, sdt1)][q])
Used simplifier rules: in-dnode: ⊦ str ' + p ∈ dnode(md, sdt) ↔ str ∈ sdt ∧ p ∈ sdt[str];%at-dnode: ⊦ str ∈ sdt → dnode(md, sdt)[str ' + p] = sdt[str][p];%a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ str + p = str ' + p; (s)