| sk .fs = mkfs(class, ty, fieldvar), validval(str, r -- sk, val0, st), validval(str, val, _type .fs .type, st) ⊦ _type .fs .type = void_type, (is_fskey(sk) → validval(str, val0, ty, st[r -- _type, val]) ∧ ty ≠ void_type ∧ sk ≠ _length) ∧ (is_indexkey(sk) → validval(str, val0, val .type .type, st[r -- _type, val])) |
_type .fs = mkfs(class0, ty0, fieldvar0), sk .fs = mkfs(class, ty, fieldvar), validval(str, r -- sk, val0, st), validval(str, val, ty0, st) ⊦ ty0 = void_type, (is_fskey(sk) → validval(str, val0, ty, st[r -- _type, val]) ∧ ty ≠ void_type ∧ sk ≠ _length) ∧ (is_indexkey(sk) → validval(str, val0, val .type .type, st[r -- _type, val]))
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (_type .fs, class0, ty0, fieldvar0)]]