| 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] ' |
⊦ n + 1 < # ar → arr2list(ar, n + 1) = arr2list(ar, n) + ar[n + 1] '
n0 + 1 < # (ar[m, bv]), 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) + (ar[m, bv][n0 + 1]) ' = arr2list(ar, n0) + ar[n0 + 1] '
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ # (ar[n, bv]) = # ar], [CSIMPSEQ : ⊦ ¬ m < n ↔ n ≤ m], [CSIMPSEQ : ⊦ m < n → (n ≤ m ↔ false)])], [EXTRATERMS : (n0, ar[m, bv])]]