| r0 ∈ st, okval(val0, ty0), okval(st[r0 -- mkfs(class, ty0, fieldvar) '], ty0), r0 -- mkfs(class, ty0, fieldvar) ' ∈ st ⊦ mkfs(class, ty0, fieldvar) ' = _type, mkfs(class, ty0, fieldvar) ' = _length, exactreftype(val, mkarraytype(ty), st[r0 -- mkfs(class, ty0, fieldvar) ', val0]) ∧ val .refval ≠ jvmref ∧ (val .refval -- _length) × intval(i) ∈ st[r0 -- mkfs(class, ty0, fieldvar) ', val0] ∧ is_arrayref(val .refval, i, st[r0 -- mkfs(class, ty0, fieldvar) ', val0]) ↔ exactarray(val, ty, i, 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)
r0 ∈ st, okval(val0, ty0), okval(st[r0 -- mkfs(class, ty0, fieldvar) '], ty0), r0 -- mkfs(class, ty0, fieldvar) ' ∈ st ⊦ mkfs(class, ty0, fieldvar) ' = _type, mkfs(class, ty0, fieldvar) ' = _length, is_referencevalue(val) ∧ val .refval ∈ st[r0 -- mkfs(class, ty0, fieldvar) ', val0] ∧ val .refval -- _type ∈ st[r0 -- mkfs(class, ty0, fieldvar) ', val0] ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type = mkarraytype(ty) ∧ val .refval ≠ jvmref ∧ val .refval -- _length ∈ st[r0 -- mkfs(class, ty0, fieldvar) ', val0] ∧ st[val .refval -- _length] = intval(i) ∧ is_arrayref(val .refval, i, st) ↔ exactarray(val, ty, i, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_arrayref (r, i, st[r0 -- fs ', val]) ↔ is_arrayref(r, i, st)], [CSIMPSEQ : ⊦ rk × val ∈ st ↔ rk ∈ st ∧ st[rk] = val], [CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]])]]