| ⊦ is_array(r, st) ∧ (∀ i. 0 ≤ i ∧ i < st[r -- _length] .intval → compat(str, st[r -- i '], st[r -- _type] .type .type, st)) → compatarray(str, r, st) |
is_array(r, st), ∀ i. ¬ i < 0 ∧ ¬ st[r -- _length] .intval ≤ i → compat(str, st[r -- i '], st[r -- _type] .type .type, st) ⊦ compatarray(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i])]]