| is_referencevalue(val), validref(str, r0, ty, st), is_reftype(ty), is_reftype(ty0), validrefval(str, val, ty0, st) ⊦ ty = void_type, mkfs(class, ty, fieldvar) ' = _length, mkfs(class0, ty0, fieldvar0) ' = _length, ty0 = void_type, validref(str, r0, ty, st[r1 -- mkfs(class0, ty0, fieldvar0) ', val]), validref(str, val .refval, ty0, st) |
⊦ validrefval(str, refval(r), ty, st) ↔ validref(str, r, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))], [CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (val, r)]]