| n1 < # x ⊦ x = [], # σ < ⌜n⌝ , #((σ to n) + ⌜x⌝ from n1 + n) = ⌜# x - n1⌝ ∧ (n1 + n0 < # x → ((σ to n) + ⌜x⌝ from n1 + n)[n0] = x[n1 + n0]) |
# x = n2 + n1 ∧ n1 ≤ # x, n1 < # x ⊦ x = [], # σ < ⌜n⌝ , #((σ to n) + ⌜x⌝ from n1 + n) = ⌜n2⌝ ∧ (n1 + n0 < # x → ((σ to n) + ⌜x⌝ from n1 + n)[n0] = x[n1 + n0])
Used simplifier rules: lels-03: ⊦ m < n → m ≤ n; from specification nat%n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: # x, n1, n2