| m ≠ 0 ∧ a0 ' + x0 ≠ [], m ≤ # x0, ∀ m, n, a. m < # x0 → m ≠ n → x0[m, a][n] = x0[n] ⊦ m = n, ((a0 ' + x0).first ' + (a0 ' + x0).rest[m -1, a])[n] = (a0 ' + x0)[n] |
m ≤ # x0, ∀ m, n, a. m < # x0 → m ≠ n → x0[m, a][n] = x0[n] ⊦ m = 0, m = n, (a0 ' + x0[m - 1, a])[n] = (a0 ' + x0)[n]
Used simplifier rules: e-01: ⊦ a ' + x ≠ []; from specification list%pred-03: ⊦ n -1 = n - 1; from specification nat%c-07: ⊦ (a ' + x).rest = x; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%c-08: ⊦ (a ' + x).first = a; from specification list