| sk .fs = mkfs(class, ty, fieldvar), is_indexkey(sk), validvals(str, rkvs, st), validval(str, val, st[r -- _type] .type .type, st) ⊦ validval(str, val, (st[rkvs][r -- _type]) .type .type, st[rkvs]) |
⊦ ¬ rk ∈ rkvs → (st[rkvs][rk]) = st[rk]
⊦ validvals(str, rkvs, st) → ¬ r -- _type ∈ rkvs
¬ r -- _type ∈ rkvs, sk .fs = mkfs(class, ty, fieldvar), is_indexkey(sk), validvals(str, rkvs, st), validval(str, val, st[r -- _type] .type .type, st) ⊦ validval(str, val, st[r -- _type] .type .type, st[rkvs])
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (r -- _type, rkvs, st)]]