| sk .fs = mkfs(class, ty, fieldvar), validvals(str, rkvs, st), (is_fskey(sk) → validval(str, val, sk .fs .type, st) ∧ sk .fs .type ≠ void_type ∧ sk ≠ _length) ∧ (is_indexkey(sk) → validval(str, val, st[r -- _type] .type .type, 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])) |
sk .fs = mkfs(class, ty, fieldvar), validvals(str, rkvs, st), ¬ is_fskey(sk) → validval(str, val, st[r -- _type] .type .type, st), ¬ is_indexkey(sk) → validval(str, val, ty, st) ∧ ty ≠ void_type ∧ sk ≠ _length ⊦ (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 : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)])]]