| sdt0[str][p0] = dnode(md0, sdt), p0 ∈ sdt0[str], str ∈ sdt0, ∀ md, sdt0, md0, sdt, q, md1. dnode(md, sdt0)[p0] = dnode(md0, sdt) ∧ p0 ∈ dnode(md, sdt0) → (q ∈ dnode(md, sdt0)[p0, dnode(md1, sdt)] ↔ q ∈ dnode(md, sdt0)) ∨ p0 = ε ⊦ str0 ' ∈ dnode(md, sdt0)[str ' + p0, dnode(md1, sdt)] ∧ q0 ∈ dnode(md, sdt0)[str ' + p0, dnode(md1, sdt)][str0 '] ↔ str0 ∈ sdt0 ∧ q0 ∈ sdt0[str0], p0 ≠ ε ∧ str ∈ sdt0 |
⊦ tree[ε] = tree
⊦ dnode(md, sdt)[str ', tree0] = dnode(md, sdt[str, tree0])
⊦ str ' ∈ dnode(md, sdt) ↔ str ∈ sdt
⊦ ε ∈ tree
sdt0[str] = dnode(md0, sdt), str ∈ sdt0 ⊦ str0 ∈ sdt0[str, dnode(md1, sdt)] ∧ q0 ∈ dnode(md, sdt0[str, dnode(md1, sdt)])[str0 '] ↔ str0 ∈ sdt0 ∧ q0 ∈ sdt0[str0]
Used simplifier rules: nil-at: ⊦ tree[ε] = tree;%put-here: ⊦ dnode(md, sdt)[str ', tree0] = dnode(md, sdt[str, tree0]);%one-ind: ⊦ str ' ∈ dnode(md, sdt) ↔ str ∈ sdt;%nil-in: ⊦ ε ∈ tree;%a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ p + ε = p; (s)