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