| is_array(str, r, st), okval(val, st[r1 -- _type] .type .type), junkrefs(str, r ' + acc, ty, st[r1 -- i ', val]), st[r -- _type] .type ≤ ty, ∀ val, st, r1, str, ty, i. okval(val, st[r1 -- _type] .type .type) ∧ junkrefs(str, acc, ty, st[r1 -- i ', val]) → is_referencevalue(val) ∨ junkrefs(str, acc, ty, st) ⊦ r = jvmref, is_referencevalue(val), junkrefs(str, r ' + acc, ty, st), is_array(str, r, st[r1 -- i ', val]) |
⊦ r ≠ r0 → (is_array(str, r0, st[r -- sk, val]) ↔ is_array(str, r0, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ is_array(str, r, st) ∧ okval (val, st[r -- _type] .type .type) → is_array (str, r, st[r -- i ', val])])], [EXTRATERMS : (val, i ', r1, st, r, str)]]