| n < # intvalues(getarray(r, i, j, st)), 0 < j ⊦ (intvalues(getarray(r, i, j, st))[n]) = st[r -- (i + n→i(n)) '] .intval |
⊦ 0 < j → # getarray(r, i, j, st) = i→n(j)
n < i→n(j), 0 < j ⊦ (intvalues(getarray(r, i, j, st))[n]) = st[r -- (i + n→i(n)) '] .intval, j = 0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i→n(i) = 0 ↔ i = 0], [CSIMPFORWARD : ⊦ m < n → n ≠ 0], [CSIMPSEQ : ⊦ # intvalues(vals) = # vals])]]