| r1 ∈ st, okval(val, ty), r1 -- mkfs(class, ty, fieldvar) ' ∈ st, okval(st[r1 -- mkfs(class, ty, fieldvar) '], ty) ⊦ class+∃(str, st[r1 -- _type] .type .class) ∧ ¬ is_abstract(st[r1 -- _type] .type .class) ∧ is_obj(r1, st[r1 -- mkfs(class, ty, fieldvar) ', val]) ↔ class+∃(str, st[r1 -- _type] .type .class) ∧ ¬ is_abstract(st[r1 -- _type] .type .class) ∧ is_obj(r1, st), ty = void_type |
r1 ∈ st, okval(val, ty), r1 -- mkfs(class, ty, fieldvar) ' ∈ st, okval(st[r1 -- mkfs(class, ty, fieldvar) '], ty), class+∃(str, st[r1 -- _type] .type .class) ⊦ ty = void_type, is_obj(r1, st[r1 -- mkfs(class, ty, fieldvar) ', val]) ↔ is_obj(r1, st), is_abstract(st[r1 -- _type] .type .class)
[[CONCRETESIMPRULES : ()]]