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