| y ≠ [], x1 + r2 ' + x2 = x + H[(r0 ' + y).last].nxt ' + r0 ' + y.butlast, ((r0 ' + y).last ' + x0).last = (r ' + x).last, (r ' + x1).last = (r ' + x).last, (r ' + x).last ∈ H, path(r ' + x1, H), path(r ' + x + H[(r0 ' + y).last].nxt ', H), path(r ' + x1 + r2 ' + x2 + (r0 ' + y).last ', H), H[(r0 ' + y).last].nxt ∈ H, (r0 ' + y).last ∈ H, path((r0 ' + y).last ' + x0, H), (r0 ' + y).last = H[(r0 ' + y).last].nxt ∨ (r0 ' + y).last = r0 ∨ (r0 ' + y).last ∈ y ⊦ H[(r0 ' + y).last].nxt = null, (r0 ' + y).last = r, r = r2, r2 = (r0 ' + y).last, (r0 ' + y).last ∈ x, (r0 ' + y).last ∈ x0, dups(x0), r ∈ x1, r ∈ x2, r2 ∈ x1, r2 ∈ x2, (r0 ' + y).last ∈ x1, (r0 ' + y).last ∈ x2, dups(x1 + x2), dups(x1), dups(x2) |
(r ' + x1).last = (r ' + x).last, x1 + r2 ' + x2 = x + H[y.last].nxt ' + r0 ' + y.butlast, (y.last ' + x0).last = (r ' + x).last, (r ' + x).last ∈ H, path(r ' + x1, H), path(r ' + x + H[y.last].nxt ', H), path(r ' + x1 + r2 ' + x2 + y.last ', H), H[y.last].nxt ∈ H, y.last ∈ H, path(y.last ' + x0, H) ⊦ y = [], H[y.last].nxt = null, y.last = r, r = r2, r2 = y.last, dups(x1 + x2), dups(x1), dups(x2), y.last ∈ x, y.last ∈ x0, dups(x0), r ∈ x1, r ∈ x2, r2 ∈ x1, r2 ∈ x2, y.last ∈ x1, y.last ∈ x2
Used simplifier rules: lin-01: ⊦ x0.last ∈ x0 ↔ x0 ≠ []; from specification list-last[reflist]%a: ⊦ (x0 + x1) + x2 = x0 + x1 + x2; from specification list[reflist]%l-02: ⊦ x0 ≠ [] → (r ' + x0).last = x0.last; from specification list-last[reflist]