| 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)) |
⊦ rk ≠ rk0 → (st[rk0, val][rk]) = st[rk]
jvmref -- mkfs(class0, ty, fieldvar) ' ≠ _mode, 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)[jvmref -- mkfs(class0, ty, fieldvar) '], ty, addobj(r, class, [], st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ _mode = jvmref -- sk ↔ sk = mkfs (`java.lang.Object' .class, void_type, `mode' .field) '], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) = mkfs(class0, ty0, fieldvar0) ↔ class = class0 ∧ ty = ty0 ∧ fieldvar = fieldvar0])], [EXTRATERMS : (jvmref -- mkfs(class0, ty, fieldvar) ', throw(r, mkclasstype(class)), _mode, addobj(r, class, [], st))]]