| ¬ ( ¬ is_referencevalue(val) ∧ validref(str, r, ty, st) ∧ is_fskey(mkfs(class, ty0, fieldvar) ') ∧ oktype(val, mkfs(class, ty0, fieldvar) ' .fs .type, st) ∧ mkfs(class, ty0, fieldvar) ' .fs .type ≠ void_type ∧ mkfs(class, ty0, fieldvar) ' ≠ _length), okval(st[r1 -- mkfs(class, ty0, fieldvar) '], ty0), r1 -- mkfs(class, ty0, fieldvar) ' ∈ st, okval(val, ty0), r1 ∈ st ⊦ validref(str, r, ty, st[r1 -- mkfs(class, ty0, fieldvar) ', val]) ↔ validref(str, r, ty, st), mkfs(class, ty0, fieldvar) ' = _length, ty0 = void_type, is_referencevalue(val) |
okval(st[r1 -- mkfs(class, ty0, fieldvar) '], ty0), r1 -- mkfs(class, ty0, fieldvar) ' ∈ st, okval(val, ty0), r1 ∈ st, validref(str, r, ty, st[r1 -- mkfs(class, ty0, fieldvar) ', val]) ⊦ mkfs(class, ty0, fieldvar) ' = _length, ty0 = void_type, is_referencevalue(val), validref(str, r, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ fs ' .fs = fs], [CSIMPSEQ : ⊦ is_fskey(fs ')])]]