| dnode(md0, sdt0)[ε] = dnode(md, sdt), q ∈ dnode(md0, sdt0)[ε, dnode(md, sdt[str, tree0])], ε ∈ dnode(md0, sdt0) ⊦ dnode(md0, sdt0)[ε, dnode(md, sdt[str, tree0])][q] = (ε + str ' ⊑ q ⊃ tree0[restn(# ε, q.tail)];(q ⊑ ε ⊃ dnode(md0, sdt0)[q][restn(# q, ε) + str ', tree0];dnode(md0, sdt0)[q])) |
⊦ tree[ε] = tree
⊦ tree[ε, tree0] = tree0
⊦ dnode(md, sdt)[str ', tree0] = dnode(md, sdt[str, tree0])
⊦ ε ∈ tree
q ∈ dnode(md, sdt[str, tree0]) ⊦ dnode(md, sdt[str, tree0])[q] = (str ' ⊑ q ⊃ tree0[q.tail];(q = ε ⊃ dnode(md, sdt[str, tree0]);dnode(md, sdt)[q]))
Used simplifier rules: nil-at: ⊦ tree[ε] = tree;%nil-put: ⊦ tree[ε, tree0] = tree0;%put-here: ⊦ dnode(md, sdt)[str ', tree0] = dnode(md, sdt[str, tree0]);%nil-in: ⊦ ε ∈ tree;% ⊦ p ⊑ ε ↔ p = ε; (s)% ⊦ restn(0, p) = p; (s)% ⊦ # ε = 0; (s)%a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ ε + p = p; (s)% ⊦ dnode(md, sdt) = dnode(md0, sdt0) ↔ md = md0 ∧ sdt = sdt0; (ws)