| (st[r -- sk, val0][val .refval -- _length]) = intval(i), is_referencevalue(val), val .refval -- _type ∈ st[r -- sk, val0], is_typevalue(st[r -- sk, val0][val .refval -- _type]), is_arraytype((st[r -- sk, val0][val .refval -- _type]) .type), (st[r -- sk, val0][val .refval -- _type]) .type .type ≤ ty, val .refval -- _length ∈ st[r -- sk, val0], is_arrayref(val .refval, i, st[r -- sk, val0]), val .refval ∈ st[r -- sk, val0], 0 ≤ i, ∀ j. ¬ j < 0 ∧ ¬ i ≤ j → okval(st[r -- sk, val0][val .refval -- j '], ty) ⊦ refval(r) = val, val .refval = jvmref, okarray(val, ty, i, st) |
val = refval(r0), (st[r -- sk, val0][r0 -- _length]) = intval(i), is_referencevalue(val), r0 -- _type ∈ st[r -- sk, val0], is_typevalue(st[r -- sk, val0][r0 -- _type]), is_arraytype((st[r -- sk, val0][r0 -- _type]) .type), (st[r -- sk, val0][r0 -- _type]) .type .type ≤ ty, r0 -- _length ∈ st[r -- sk, val0], is_arrayref(r0, i, st[r -- sk, val0]), r0 ∈ st[r -- sk, val0], 0 ≤ i, ∀ j. ¬ j < 0 ∧ ¬ i ≤ j → okval(st[r -- sk, val0][r0 -- j '], ty) ⊦ refval(r) = val, r0 = jvmref, okarray(val, ty, i, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (val, r0)]]