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