| m + m0 ≤ # x0, ∀ m, m0. m + m0 < # x0 → (x0 from m)[m0] = x0[m + m0] ∨ x0 = [] ⊦ (a ' + x0 from m)[m0] = (a ' + x0)[m + m0] |
∀ m0, x0, a. m1 + m0 ≤ # x0 ∧ (∀ m, m0. m + m0 < # x0 → (x0 from m)[m0] = x0[m + m0] ∨ x0 = []) → (a ' + x0 from m1)[m0] = (a ' + x0)[m1 + m0], m1 +1 + m0 ≤ # x0, ∀ m, m0. m + m0 < # x0 → (x0 from m)[m0] = x0[m + m0] ∨ x0 = [] ⊦ (a ' + x0 from m1 +1)[m0] = (a ' + x0)[m1 +1 + m0]
Used simplifier rules: from-zero-l: ⊦ x from 0 = x;%nat freely generated by 0, +1;;%add-base: ⊦ n + 0 = n; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2