| sk .fs = mkfs(class, ty, fieldvar), validval(str, rk, val, st), validval(str, r -- sk, val0, st), is_indexkey(sk) ⊦ r -- _type = rk, validval(str, val0, st[r -- _type] .type .type, st[rk, val]) |
⊦ validval(str, val, ty, st) ↔ okval(val, ty) ∧ (is_referencevalue(val) → validrefval(str, val, ty, st))
sk .fs = mkfs(class, ty, fieldvar), validval(str, rk, val, st), validval(str, r -- sk, val0, st), is_indexkey(sk) ⊦ r -- _type = rk, okval(val0, st[r -- _type] .type .type) ∧ (is_referencevalue(val0) → validrefval(str, val0, st[r -- _type] .type .type, st[rk, val]))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st[rk, val], st[r -- _type] .type .type, val0, str)]]