| m0 + 1 < # (ar[n, bv]), 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) + (ar[n, bv][m0 + 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) + (ar[n, bv][m0 + 1]) '
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # (ar[n, bv]) = # ar], [CSIMPSEQ : ⊦ m + n = n + m])]]