| a ' + x0 ≠ [] ∧ # x0 ≠ 0, ∀ m. # x0 = m + 1 → x0[m] = x0.last ⊦ x0 = [], (a ' + x0).rest[# x0 - 1] = x0.last |
∀ m. # x0 = m + 1 → x0[m] = x0.last ⊦ x0 = [], x0[# x0 - 1] = x0.last
Used simplifier rules: e-01: ⊦ a ' + x ≠ []; from specification list%l: ⊦ # x = 0 ↔ x = []; from specification list-data%a: ⊦ (x + y) + z = x + y + z; from specification list%c-07: ⊦ (a ' + x).rest = x; from specification list