| ¬ n < # arr2list(ar, m0), 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, # arr2list(ar, m0) ≤ n, # arr2list(ar, m0) < # ar, # arr2list(ar, m0) ≤ m0 + 1, ∀ 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 : ([CSIMPFORWARD : ⊦ m ≤ n ∧ n < n0 → m < n0], [CSIMPFORWARD : ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1], [CSIMPSEQ : ⊦ ¬ m < n ↔ n ≤ m], [CSIMPSEQ : ⊦ m + n = n + m])]]