| sk = fs ', fs = mkfs(class, ty, fieldvar), r1 ∈ st, okval(val, ty), is_fskey(sk), r1 -- sk ∈ st, okval(st[r1 -- sk], ty) ⊦ class+∃(str, st[r1 -- _type] .type .class) ∧ ¬ is_abstract(st[r1 -- _type] .type .class) ∧ is_obj(r1, st[r1 -- sk, val]) ↔ is_obj(str, r1, st), ty = void_type, _type = sk |
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]) ↔ is_obj(str, r1, st), ty = void_type
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_fskey(fs ')], [CSIMPSEQ : ⊦ ty ≠ void_type → mkfs(class, ty, fieldvar) ' ≠ _type])]]