| getarray(r, i, j, st) = [], 0 < j ⊦ |
⊦ 1 < j → getarray(r, i, j, st) = getarray(r, i, j - 1, st) + st[r -- (i + j - 1) ']
⊦ getarray(r, i, 1, st) = st[r -- i '] '
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ j = i0 → i < i0], [CSIMPSEQ : ⊦ 0 < i → (i ≤ 1 ↔ i = 1)], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ vals + val = vals + val '], [CSIMPSEQ : ⊦ ¬ vals + vals0 ≠ [] ↔ vals = [] ∧ vals0 = []], [CSIMPSEQ : ⊦ val ' ≠ []], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1])], [EXTRATERMS : (st, j, i, r)]]