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