| path(r ' + x1, H), path(r ' + x1 + H[(r ' + x1).last].nxt ', H), reachable(r, r1, H), 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(r1, (r2 ' + x0).last, H0) ∨ reachable((r2 ' + x0).last, r1, H0) ⊦ H[(r ' + x1).last].nxt = null, reachable(r1, H[(r ' + x1).last].nxt, H), reachable(H[(r ' + x1).last].nxt, r1, H) |
path(r ' + x1 + H[(r ' + x1).last].nxt ', H), path(r ' + x1, H), reachable(r, r1, H), r1 ∈ H, H[(r ' + x1).last].nxt ∈ H, reachable(r1, (r ' + x1).last, H) ∨ reachable((r ' + x1).last, 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(r1, (r2 ' + x0).last, H0) ∨ reachable((r2 ' + x0).last, r1, H0) ⊦ H[(r ' + x1).last].nxt = null, reachable(H[(r ' + x1).last].nxt, r1, H), reachable(r1, H[(r ' + x1).last].nxt, H)
Used simplifier rules: path-butlast: ⊦ path(r ' + x + r0 ', H) → (path(r ' + x, H) ↔ true);%path-last: ⊦ path(r ' + x, H) → ((r ' + x).last ∈ H ↔ true);%reachable-notnullinH: ⊦ reachable(r, r1, H) → (r1 ∈ H ↔ true);%a: ⊦ (x0 + x1) + x2 = x0 + x1 + x2; from specification list[reflist]% ⊦ #(x0 + x1) = # x0 + # x1; (s)% ⊦ # r ' = 0 +1; (s)% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ ¬ n < n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic Used terms: x1, r, H, r1