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