| ¬ n0 < #(x to n0), n0 < # x, ∀ m, x. m ≤ n0 ∧ n0 ≤ # x ∧ m ≤ # x → x to n0 to m = x to m ⊦ x = [], ((x to n0) + x[n0] ' to n0) + x[n0] '[n0 - #(x to n0)] ' = x to n0 + 1 |
n0 < # x, ∀ m, x. m ≤ n0 ∧ n0 ≤ # x ∧ m ≤ # x → x to n0 to m = x to m ⊦ x = [], ((x to n0) + x[n0] ' to n0) + x[n0] ' = x to n0 + 1
Used simplifier rules: length-to: ¬ # x < n ⊦ #(x to n) = n;%ler: ⊦ m ≤ m; from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%one-03: ⊦ a '[0] = a; from specification list-del%zero: ⊦ m - m = 0; from specification nat%ls-02: ⊦ m < n → ¬ n < m; from specification nat-basic1