| fs = mkfs(class0, ty, fieldvar), st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, class+∃(str, class), fs ' ∈ instfields(class), ∀ sk. sk ∈ instfields(class) → r -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[r -- sk], sk .fs .type, st) ⊦ r = jvmref, r -- fs ' ∈ st ∧ okval(st[r -- fs '], ty) |
st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, class+∃(str, class), mkfs(class0, ty, fieldvar) ' ∈ instfields(class), ∀ sk. sk ∈ instfields(class) → r -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[r -- sk], sk .fs .type, st) ⊦ r = jvmref, r -- mkfs(class0, ty, fieldvar) ' ∈ st ∧ okval(st[r -- mkfs(class0, ty, fieldvar) '], ty)
[[CONCRETESIMPRULES : ()]]