| ∀ n, ar, bv. n < # ar ∧ n ≤ m0 ∧ m0 < # ar → (arr2list(ar, m0)[n, bv]) = arr2list(ar[n, bv], m0), n < # ar, n ≤ m0 +1, m0 +1 < # ar ⊦ (arr2list(ar, m0 +1)[n, bv]) = arr2list(ar[n, bv], m0 +1) |
⊦ n + 1 < # ar → arr2list(ar, n + 1) = arr2list(ar, n) + ar[n + 1] '
n < # ar, n ≤ m0 + 1, m0 + 1 < # ar, ∀ n, ar, bv. n < # ar ∧ n ≤ m0 ∧ m0 < # ar → (arr2list(ar, m0)[n, bv]) = arr2list(ar[n, bv], m0) ⊦ (arr2list(ar, m0) + ar[m0 + 1] ')[n, bv] = arr2list(ar[n, bv], m0 + 1)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m +1 = m + 1])]]