| fs = mkfs(class0, ty, fieldvar), st1[r -- _type] = typeval(mkclasstype(class)), st[r -- _type] = typeval(mkclasstype(class)), r -- _type ∈ st, r -- _type ∈ st1, r ∈ st, r ∈ st1, fs ' ∈ instfields(class), r -- fs ' ∈ st, okval(st[r -- fs '], ty), ∀ sk. sk ∈ instfields(class) → goodfieldandtype(r, sk, st), ∀ rk. rk ∈ st → rk ∈ st1 ∧ st[rk] = st1[rk] ⊦ r = jvmref, r -- fs ' ∈ st1 ∧ okval(st1[r -- fs '], ty) |
st1[r -- _type] = typeval(mkclasstype(class)), st[r -- _type] = typeval(mkclasstype(class)), r -- _type ∈ st, r -- _type ∈ st1, r ∈ st, r ∈ st1, mkfs(class0, ty, fieldvar) ' ∈ instfields(class), r -- mkfs(class0, ty, fieldvar) ' ∈ st, okval(st[r -- mkfs(class0, ty, fieldvar) '], ty), ∀ sk. sk ∈ instfields(class) → goodfieldandtype(r, sk, st), ∀ rk. rk ∈ st → rk ∈ st1 ∧ st[rk] = st1[rk] ⊦ r = jvmref, r -- mkfs(class0, ty, fieldvar) ' ∈ st1 ∧ okval(st1[r -- mkfs(class0, ty, fieldvar) '], ty)
[[CONCRETESIMPRULES : ()]]