| x1 = x2 + r0 ', r0 = H[r].nxt, ce.nxt = H[r0].nxt, path(ce.nxt ' + x1, H[r, ce]), r0 ∈ H[r, ce], r ∈ H, r0 ∈ H ⊦ r = ce.nxt, r = null, r0 = null, r0 = ce.nxt, x1 = [], dups(x1), ce.nxt ∈ x1, r ∈ x1, ∃ x. path(r0 ' + x + r0 ', H) ∧ ¬ r ∈ x |
ce.nxt = H[H[r].nxt].nxt, r ∈ H, path(ce.nxt ' + x2 + H[r].nxt ', H[r, ce]), H[r].nxt ∈ H ⊦ r = ce.nxt, r = null, H[r].nxt = null, H[r].nxt = ce.nxt, r = H[r].nxt, H[r].nxt ∈ x2, dups(x2), ce.nxt ∈ x2, r ∈ x2, ∃ x. path(H[r].nxt ' + x + H[r].nxt ', H) ∧ ¬ r ∈ x
Used simplifier rules: in-neq: ⊦ r ≠ r0 → (r ∈ H[r0, ce] ↔ r ∈ H); from specification store[linheap]%in-17: ⊦ r ∈ r0 ' ↔ r = r0; from specification list[reflist]%in-append: ⊦ r ∈ x0 + x1 ↔ ¬ ¬(r ∈ x0 ∨ r ∈ x1); from specification list[reflist]%f: ⊦ dups(x0 + r ') ↔ r ∈ x0 ∨ dups(x0); from specification list-dup[reflist]%a: ⊦ (x0 + x1) + x2 = x0 + x1 + x2; from specification list[reflist]%e-02: ⊦ x0 + r ' ≠ []; from specification list[reflist]