| n0 < # x, ∀ m, x. m ≤ n0 ∧ n0 ≤ # x ∧ m ≤ # x → x to n0 to m = x to m ⊦ ((x to n0) + x[n0] ' to n0) + x[n0] '[n0 - #(x to n0)] ' = x to n0 + 1, x = [], n0 < #(x to n0) |
n0 < # x, ∀ m, x. m ≤ n0 ∧ n0 ≤ # x ∧ m ≤ # x → x to n0 to m = x to m ⊦ ((x to n0) + x[n0] ' to n0) + x[n0] ' = x to n0 + 1, x = []
Used simplifier rules: length-to: ¬ # x < n ⊦ #(x to n) = n;% ⊦ m ≤ m; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ a '[0] = a; (s)% ⊦ m - m = 0; (s)% ⊦ m < n → ¬ n < m; (s)