| dnode(md, sdt)[ε] = dnode(md0, sdt0), q ∈ dnode(md, sdt)[ε, dnode(md1, sdt1)], ε ∈ dnode(md, sdt) ⊦ dnode(md, sdt)[ε, dnode(md1, sdt1)][q] = (q ⊑ ε ⊃ dnode(md, sdt)[q][restn(# q, ε), dnode(md1, sdt1)];dnode(md, sdt)[ε, dnode(md0, sdt1)][q]) |
⊦ tree[ε] = tree
⊦ tree[ε, tree0] = tree0
⊦ ε ∈ tree
q ∈ dnode(md1, sdt1) ⊦ dnode(md1, sdt1)[q] = (q = ε ⊃ dnode(md1, sdt1);dnode(md0, sdt1)[q])
Used simplifier rules: nil-at: ⊦ tree[ε] = tree;%nil-put: ⊦ tree[ε, tree0] = tree0;%nil-in: ⊦ ε ∈ tree;% ⊦ restn(0, p) = p; (s)% ⊦ # ε = 0; (s)% ⊦ p ⊑ ε ↔ p = ε; (s)% ⊦ dnode(md, sdt) = dnode(md0, sdt0) ↔ md = md0 ∧ sdt = sdt0; (ws)