| ⊦ okclass(refval(r), class1, arraycopy(r1, i, r0, i0, j, st)) ↔ okclass(refval(r), class1, st) |
⊦ okclass(val, class1, st) ↔ reftypep(val, st) ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ st[val .refval -- _type] = typeval(mkclasstype(class1)))
⊦ reftypep(refval(r), arraycopy(r1, i, r0, i0, j, st)) ∧ (r ≠ jvmref → r -- _type ∈ st ∧ st[r -- _type] = typeval(mkclasstype(class1))) ↔ okclass(refval(r), class1, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (arraycopy(r1, i1, r2, i2, j, st) [r -- _type ] ) = st[r -- _type]], [CSIMPSEQ : ⊦ r -- _type ∈ arraycopy (r1, i1, r2, i2, j, st) ↔ r -- _type ∈ st], [CSIMPSEQ : ⊦ refval(r) .refval = r])]]