| n < # ar, n ≤ 0, 0 < # ar ⊦ (arr2list(ar, 0)[n, bv]) = arr2list(ar[n, bv], 0) |
⊦ 0 ≠ # ar → arr2list(ar, 0) = ar[0] '
⊦ # ar = 0, bv ' = arr2list(ar[0, bv], 0)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (bv ')[0, bv0] = bv0 '], [CSIMPFORWARD : ⊦ m < n ∧ m = n0 → n0 < n], [CSIMPSEQ : ⊦ m < n → n ≠ 0], [CSIMPSEQ : ⊦ 0 < m ↔ m ≠ 0], [CSIMPSEQ : ⊦ m ≤ 0 ↔ m = 0])]]