| ¬ x2 ≠ [], (r0 ' + x0).last = (r ' + x1).last, H[r0].nxt = (r2 ' + x2).last, (r ' + x1).last = (r ' + x1 + (r2 ' + x2).butlast).last, path(r0 ' + x0, H), r0 ∈ H, H[r0].nxt ∈ H, path(r ' + x1 + r2 ' + x2 + r0 ', H), path(r ' + x1 + r2 ' + x2, H), path(r ' + x1, H), (r ' + x1).last ∈ H, H[r0].nxt ∈ x1 ∨ H[r0].nxt = r2 ∨ H[r0].nxt ∈ x2 ⊦ r2 = r0, r = r2, r0 = r, H[r0].nxt = null, dups(x2), dups(x1), dups(x1 + x2), r0 ∈ x2, r0 ∈ x1, r2 ∈ x2, r2 ∈ x1, r ∈ x2, r ∈ x1, dups(x0), r0 ∈ x0, r0 ∈ (r2 ' + x2).butlast |
(r0 ' + x0).last = (r ' + x1).last, path(r ' + x1 + H[r0].nxt ', H), path(r ' + x1 + H[r0].nxt ' + r0 ', H), H[r0].nxt ∈ H, r0 ∈ H, path(r0 ' + x0, H), (r ' + x1).last ∈ H, path(r ' + x1, H) ⊦ H[r0].nxt = null, r0 = r, r = H[r0].nxt, H[r0].nxt = r0, dups(x1), r0 ∈ x0, dups(x0), r ∈ x1, H[r0].nxt ∈ x1, r0 ∈ x1
Used simplifier rules: in-empty: ⊦ ¬ r ∈ []; from specification list[reflist]%e-01: ⊦ ¬ dups([]); from specification list-dup[reflist]%Nil: ⊦ [] + x0 = x0; from specification list[reflist]%b: ⊦ r '.butlast = []; from specification list-last[reflist]%l: ⊦ r '.last = r; from specification list-last[reflist]%a: ⊦ (x0 + x1) + x2 = x0 + x1 + x2; from specification list[reflist]%app: ⊦ x0 + [] = x0; from specification list[reflist]