| 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, val0 .refval, st[r -- _type] .type .type, st[rk, val]) |
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])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (val0, r0)]]