| st[r -- mkfs(class0, ty, fieldvar) '] = refval(r1), st[r -- _type] .type = mkclasstype(class), is_obj(str, r, st), mkfs(class0, ty, fieldvar) ' ∈ instfields(class), okbytearray(r1, st) ⊦ r1 = jvmref, r = jvmref, r = r1, st[r1 -- sk0] = (putByteArray(bytes, r1, st)[r1 -- sk0]), mkarraytype(byte_type) ≤ ty, ∃ fs. fs ' ∈ instfields(class) ∧ is_referencevalue(st[r -- fs ']) ∧ st[r -- fs '] .refval ≠ jvmref ∧ (¬ st[st[r -- fs '] .refval -- _type] .type ≤ fs .type ∨ junkref(str, st[r -- fs '] .refval, st)) |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ okbytearray(r, st) → st[r -- _type] = typeval(mkarraytype(byte_type))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty])], [EXTRATERMS : (mkfs(class0, ty, fieldvar))]]