| ¬ (compat(str, st[r0 -- sk], ty0, st) ∧ mkfs(class, ty, fieldvar) .type ≠ void_type), sk .fs = mkfs(class1, ty0, fieldvar0), st[r0 -- _type] = typeval(mkclasstype(class0)), sk ∈ instfields(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, compatfields(str, r0, instfields(class0), st), class+∃(str, class0), r0 ≠ r ∨ sk ≠ mkfs(class, ty, fieldvar) ' ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, compat(str, st[r0 -- sk], ty0, st[r -- mkfs(class, ty, fieldvar) ', val]) |
sk .fs = mkfs(class1, ty0, fieldvar0), st[r0 -- _type] = typeval(mkclasstype(class0)), sk ∈ instfields(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, compatfields(str, r0, instfields(class0), st), class+∃(str, class0), r0 ≠ r ∨ sk ≠ mkfs(class, ty, fieldvar) ' ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, compat(str, st[r0 -- sk], ty0, st[r -- mkfs(class, ty, fieldvar) ', val]), compat(str, st[r0 -- sk], ty0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty])]]