| path(r ' + x1 + r0 ', H) ↔ path(r ' + x1, H) ∧ H[(r ' + x1).last].nxt = r0 ∧ r0 ∈ H ∧ r0 ≠ null, r1 ∈ H, path(r ' + x1 + r0 ', H), reachable(r, r1, H), r0 ∈ H, ∀ x0, r, H, r1. # x0 < #(x1 + r0 ') → path(r ' + x0, H) ∧ reachable(r, r1, H) ∧ (r ' + x0).last ∈ H ∧ r1 ∈ H → reachable((r ' + x0).last, r1, H) ∨ reachable(r1, (r ' + x0).last, H) ⊦ reachable(r0, r1, H), reachable(r1, r0, H) |
path(r ' + x1, H), H[(r ' + x1).last].nxt ∈ H, reachable(r, r1, H), path(r ' + x1 + H[(r ' + x1).last].nxt ', H), r1 ∈ H, ∀ x0, r2, H0, r1. # x0 < #(x1 + H[(r ' + x1).last].nxt ') → path(r2 ' + x0, H0) ∧ reachable(r2, r1, H0) ∧ (r2 ' + x0).last ∈ H0 ∧ r1 ∈ H0 → reachable((r2 ' + x0).last, r1, H0) ∨ reachable(r1, (r2 ' + x0).last, H0) ⊦ H[(r ' + x1).last].nxt = null, reachable(r1, H[(r ' + x1).last].nxt, H), reachable(H[(r ' + x1).last].nxt, r1, H)
Used simplifier rules: path-butlast: ⊦ path(r ' + x + r0 ', H) → (¬ path(r ' + x, H) ↔ false);%a: ⊦ (x0 + x1) + x2 = x0 + x1 + x2; from specification list[reflist]