| ⊦ ¬ okval(st[r -- i '], st[r -- _type] .type .type) ∧ 0 ≤ i ∧ i < st[r -- _length] .intval → ¬ is_array(r, st) |
is_array(r, st), i < st[r -- _length] .intval, 0 ≤ i, 0 < st[r -- _length] .intval ⊦ okval(st[r -- i '], st[r -- _type] .type .type)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j])]]