| i = i1 + i0, i < j + i0, i0 ≤ i, 0 ≤ i, 0 ≤ i0, 0 < j + i0, 0 < j ⊦ st[r -- i '] = (getarray(r, i0, j, st)[i→n(i1)]) |
0 ≤ i0, 0 < j + i0, 0 < j, i1 < j, 0 ≤ i1 + i0, 0 ≤ i1 ⊦ st[r -- (i1 + i0) '] = (getarray(r, i0, j, st)[i→n(i1)])
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ i ≤ i + j ↔ 0 ≤ j], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + j < i + i0 ↔ j < i0])]]