| ⊦ r = r0, exactreftype(refval(r), mkarraytype(byte_type), st[r0 -- sk, val]) ∧ r ≠ jvmref ∧ r -- _length ∈ st[r0 -- sk, val] ∧ is_integervalue(st[r0 -- sk, val][r -- _length]) ∧ 0 ≤ (st[r0 -- sk, val][r -- _length]) .intval ∧ is_arrayref(r, (st[r0 -- sk, val][r -- _length]) .intval, st[r0 -- sk, val]) ↔ exactarray(r, byte_type, st) |
⊦ exactreftype(val, ty, st) ↔ is_referencevalue(val) ∧ val .refval ∈ st ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type = ty)
⊦ r = r0, r ∈ st ∧ r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) ∧ st[r -- _type] .type = mkarraytype(byte_type) ∧ r ≠ jvmref ∧ r -- _length ∈ st ∧ is_integervalue(st[r -- _length]) ∧ 0 ≤ st[r -- _length] .intval ∧ is_arrayref(r, st[r -- _length] .intval, st) ↔ exactarray(r, byte_type, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → ( is_arrayref (r, i, st[r0 -- sk, val0]) ↔ is_arrayref(r, i, st))], [CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ r ≠ r0 → ( r -- sk ∈ st[r0 -- sk0, val] ↔ r -- sk ∈ st)], [CSIMPSEQ : ⊦ r ∈ st[r0 -- sk, val] ↔ r = r0 ∨ r ∈ st], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]