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