| a0 ' + y = firstn(m, a0 ' + y) + a ' + z, # y = m + # z, # z ≤ # y + 1, a0 ' + y = firstn(# y - # z, a0 ' + y) + a ' + z → (a0 ' + firstn(m, y)).butlast = firstn(# y - # z, a0 ' + y), a0 ∈ firstn(m, a0 ' + y) ∨ a0 = a ∨ a0 ∈ z ⊦ (a0 ' + firstn(m, y)).butlast = firstn(m, a0 ' + y) |
Used simplifier rules: a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2%eqs: ⊦ m = n + n0 ∧ m = n + n1 → n0 = n1; (forward) from specification nat-basic2%lels-01: ⊦ ¬ m ≤ n ↔ n < m; from specification nat%a: ⊦ (x + y) + z = x + y + z; from specification list%len-03: ⊦ a ' + x = y + b ' + z → ¬ # x < # z; from specification list%n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: # y, # z, n