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