| is_predefined_class(class), newref(r, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class0), tdname∃(str, class0), initdone(class0, st), goodfieldandtype(jvmref, mkfs(class0, ty, fieldvar) ', st) ∧ type∃(str, mkfs(class0, ty, fieldvar) ' .fs .type) ∧ mkfs(class0, ty, fieldvar) ' .fs .type ≠ void_type ∧ ( is_reftype(mkfs(class0, ty, fieldvar) ' .fs .type) → validrefval(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], mkfs(class0, ty, fieldvar) ' .fs .type, st)) ⊦ r = jvmref, ty = void_type, ( is_reftype(ty) → validrefval (str, addobj(r, class, [], st)[_mode, throw(r, mkclasstype(class))][jvmref -- mkfs(class0, ty, fieldvar) '], ty, addobj(r, class, [], st)[_mode, throw(r, mkclasstype(class))])) ∧ type∃(str, ty) ∧ goodfieldandtype(jvmref, mkfs(class0, ty, fieldvar) ', st) |
type∃(str, ty), is_reftype(ty), is_predefined_class(class), newref(r, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class0), tdname∃(str, class0), initdone(class0, st), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st, is_referencevalue(st[jvmref -- mkfs(class0, ty, fieldvar) ']), validrefval(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st), jvmref ∈ st ⊦ r = jvmref, ty = void_type, validrefval (str, addobj(r, class, [], st)[_mode, throw(r, mkclasstype(class))][jvmref -- mkfs(class0, ty, fieldvar) '], ty, addobj(r, class, [], st)[_mode, throw(r, mkclasstype(class))])
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ is_reftype(ty) → ( okval(val, ty) ↔ is_referencevalue(val))], [CSIMPSEQ : ⊦ goodfieldandtype (r, mkfs(class1, ty, fieldvar) ', st) ↔ r -- mkfs(class1, ty, fieldvar) ' ∈ st ∧ okval (st[ r -- mkfs (class1, ty, fieldvar) '], ty)], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ fs ' .fs = fs])]]