| validrefs(str, [] + r0 ', ty, st), okval(val, ty0) ⊦ mkfs(class, ty0, fieldvar) ' = _length, mkfs(class, ty0, fieldvar) ' = _type, validrefs(str, [] + r0 ', ty, st[r -- mkfs(class, ty0, fieldvar) ', val]), r ∈ [] |
okval(val, ty0), validrefs(str, r0 ', ty, st) ⊦ mkfs(class, ty0, fieldvar) ' = _length, mkfs(class, ty0, fieldvar) ' = _type, validrefs(str, r0 ', ty, st[r -- mkfs(class, ty0, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ r ∈ []], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ [] + refs = refs])]]