| validvals(str, rkvs0, st), validref(str, r, ty, st), okval(val, ty0) ∧ (is_referencevalue(val) → validrefval(str, val, ty0, st)), ∀ str, r, ty, st. validref(str, r, ty, st) ∧ validvals(str, rkvs0, st) → validref(str, r, ty, st[rkvs0]) ⊦ mkfs(class, ty0, fieldvar) ' = _length, ty0 = void_type, validref(str, r, ty, st[r0 -- mkfs(class, ty0, fieldvar) ', val][rkvs0]), validref(str, r, ty, st[r0 -- mkfs(class, ty0, fieldvar) ', val]), (is_referencevalue(val) → validref(str, val .refval, ty0, st) ∧ is_reftype(ty0)) ∧ (¬ is_referencevalue(val) → okval(val, ty0)) |
is_referencevalue(val), validvals(str, rkvs0, st), validref(str, r, ty, st), is_reftype(ty0), validrefval(str, val, ty0, st), ∀ str, r, ty, st. validref(str, r, ty, st) ∧ validvals(str, rkvs0, st) → validref(str, r, ty, st[rkvs0]) ⊦ mkfs(class, ty0, fieldvar) ' = _length, ty0 = void_type, validref(str, r, ty, st[r0 -- mkfs(class, ty0, fieldvar) ', val][rkvs0]), validref(str, r, ty, st[r0 -- mkfs(class, ty0, fieldvar) ', val]), validref(str, val .refval, ty0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(val) → ( okval(val, ty) ↔ ty = void_type ∨ is_reftype(ty))])]]