| ⊦ ( is_fskey(mkfs(class, ty, fieldvar) ') → validval(str, val, mkfs(class, ty, fieldvar) ' .fs .type, st) ∧ mkfs(class, ty, fieldvar) ' .fs .type ≠ void_type ∧ mkfs(class, ty, fieldvar) ' ≠ _length) ∧ (is_indexkey(mkfs(class, ty, fieldvar) ') → validval(str, val, st[r -- _type] .type .type, st)) ↔ okval(val, ty) ∧ mkfs(class, ty, fieldvar) ' ≠ _length, is_referencevalue(val) |
⊦ validval(str, val, ty, st) ∧ ty ≠ void_type ↔ okval(val, ty), mkfs(class, ty, fieldvar) ' = _length, is_referencevalue(val)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_indexkey(fs ')], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ fs ' .fs = fs], [CSIMPSEQ : ⊦ is_fskey(fs ')])]]