| st[r0 -- _type] = typeval(mkclasstype(class0)), class+∃(str, class0), compat(str, val, ty, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st, r0 ∈ st, compatobj(str, r0, st) ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, is_classtype((st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _type]) .type) ∧ class+∃(str, (st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _type]) .type .class) ∧ compatfields(str, r0, instfields((st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- _type]) .type .class), st[r -- mkfs(class, ty, fieldvar) ', val]) |
st[r0 -- _type] = typeval(mkclasstype(class0)), compatobj(str, r0, st), r0 ∈ st, r0 -- _type ∈ st, r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], compatmode(str, st), compatstatic(str, st), compat(str, val, ty, st), class+∃(str, class0) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r0 = jvmref, compatfields(str, r0, instfields(class0), st[r -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkclasstype(class) .class = class], [CSIMPSEQ : ⊦ is_classtype(mkclasstype(class))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ ty ≠ void_type → (st[ r -- mkfs (class, ty, fieldvar) ', val] [r0 -- _type ] ) = st[r0 -- _type]])]]