| sk .fs = mkfs(class, ty, fieldvar), is_indexkey(sk), validvals(str, rkvs, st), okval(val, st[r -- _type] .type .type), is_referencevalue(val), validrefval(str, val, st[r -- _type] .type .type, st) ⊦ validref(str, val .refval, st[r -- _type] .type .type, st[rkvs]) |
val = refval(r0), sk .fs = mkfs(class, ty, fieldvar), is_indexkey(sk), validvals(str, rkvs, st), okval(val, st[r -- _type] .type .type), is_referencevalue(val), validrefval(str, val, st[r -- _type] .type .type, st) ⊦ validref(str, r0, st[r -- _type] .type .type, st[rkvs])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (val, r0)]]