| r = ((x0 + H[r].nxt ') + r1 ' + x).last, x1 = ((x0 + H[r].nxt ') + r1 ' + x).butlast, path(H[H[r].nxt].nxt ' + x1 + r ', H), path(H[H[r].nxt].nxt ' + x0 + H[r].nxt ', H), H[r].nxt ∈ H, r ∈ H, r = H[r].nxt ∨ r = r1 ∨ r ∈ x ⊦ (x0 + H[r].nxt ') + r1 ' + x = [], H[r].nxt = null, H[r].nxt = H[H[r].nxt].nxt, r = H[H[r].nxt].nxt, dups(x1), r ∈ x0, H[H[r].nxt].nxt ∈ x1, r ∈ x1 |
path(H[H[(r1 ' + x).last].nxt].nxt ' + x0 + H[(r1 ' + x).last].nxt ', H), path(H[H[(r1 ' + x).last].nxt].nxt ' + x0 + H[(r1 ' + x).last].nxt ' + r1 ' + x, H), H[(r1 ' + x).last].nxt ∈ H, (r1 ' + x).last ∈ H, (r1 ' + x).last = r1 ∨ (r1 ' + x).last ∈ x ⊦ (r1 ' + x).last = H[(r1 ' + x).last].nxt, (r1 ' + x).last = H[H[(r1 ' + x).last].nxt].nxt, H[(r1 ' + x).last].nxt = null, H[(r1 ' + x).last].nxt = H[H[(r1 ' + x).last].nxt].nxt, dups((r1 ' + x).butlast), dups(x0), dups(x0 + (r1 ' + x).butlast), H[(r1 ' + x).last].nxt ∈ (r1 ' + x).butlast, H[(r1 ' + x).last].nxt ∈ x0, (r1 ' + x).last ∈ x0, H[H[(r1 ' + x).last].nxt].nxt ∈ (r1 ' + x).butlast, H[H[(r1 ' + x).last].nxt].nxt ∈ x0, (r1 ' + x).last ∈ (r1 ' + x).butlast
Used simplifier rules: x0 ≠ [] ⊦ x0.butlast + x0.last ' = x0; (s)% ⊦ r ' + x0 ≠ []; (s)%a: ⊦ ¬ dups(x0 + x1) → ¬ dups(x0) ∧ ¬ dups(x1); (forward) from specification list-dup[reflist]% ⊦ dups(x0 + r ' + x1) ↔ r ∈ x0 ∨ r ∈ x1 ∨ dups(x0 + x1); (ws)% ⊦ r ∈ r0 ' ↔ r = r0; (s)% ⊦ r ∈ x0 + x1 ↔ r ∈ x0 ∨ r ∈ x1; (s)% ⊦ (x0 + r ' + x1).butlast = x0 + (r ' + x1).butlast; (s)% ⊦ x0 + r ' + x1 ≠ []; (s)%a: ⊦ (x0 + x1) + x2 = x0 + x1 + x2; from specification list[reflist]% ⊦ (x0 + r ' + x1).last = (r ' + x1).last; (s)