| 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] ' |
n0 + 1 < m, m < # ar, 2 + n0 < # ar, n0 + 1 < # ar, ∀ m, ar, bv. n0 < m ∧ m < # ar → arr2list(ar[m, bv], n0) = arr2list(ar, n0) ⊦ arr2list(ar[m, bv], n0) = arr2list(ar, n0)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (x + y) + z = x + y + z], [CSIMPSEQ : ⊦ x + y = z + y ↔ x = z], [CSIMPSEQ : m ≠ n ⊦ ar[m, bv][n] ↔ ar[n]], [CSIMPSEQ : ⊦ # (ar[n, bv]) = # ar], [CSIMPSEQ : ⊦ m + n < m + n0 ↔ n < n0], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m])]]