| ∀ m. # x0 = m + 1 → x0[m] = x0.last ⊦ # x0 = 0, a ' + x0 = [], (a ' + x0).tail[# x0 - 1] = x0.last, x0 = [] |
∀ m. # x0 = m + 1 → x0[m] = x0.last ⊦ x0[# x0 - 1] = x0.last, x0 = []
Used simplifier rules: ⊦ # x = 0 ↔ x = []; (s)% ⊦ a ' + x ≠ []; (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ (a ' + x).tail = x; (s)