| ⊦ x = [], restn(# x, a ' + x) = x.last ' |
Used simplifier rules: restN-rec: ⊦ restn(n + 1, x) = restn(n, x.rest);%restN-len: ⊦ restn(# x, x + y) = y;%e-02: ⊦ x + a ' ≠ []; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%len: ⊦ #(x + y) = # x + # y; from specification list%len-02: ⊦ # a ' = 0 +1; from specification list%c-07: ⊦ (a ' + x).rest = x; from specification list%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2%c-04: ⊦ a ' = b ' ↔ a = b; from specification list%x ≠ [] ⊦ a = x.last ∧ y = x.butlast ↔ x = y + a '; (elim) Used terms: x, a0, y