| is_indexkey(sk), fits(r, sks1 + sk ', st), fits(r0, sks + mkfs(class, ty, fieldvar) ' ', st) ⊦ (st[st[r -- sks1] .refval -- sk, val][r0 -- (sks + mkfs(class, ty, fieldvar) ' '), val0]) = (st[r0 -- (sks + mkfs(class, ty, fieldvar) ' '), val0][r -- (sks1 + sk '), val]), sk = mkfs(class, ty, fieldvar) ', junkref(str, r0, st), junkref(str, r, st), is_reftype(ty), is_referencevalue(st[r -- (sks1 + sk ')]), is_referencevalue(val0), is_referencevalue(val) |
⊦ ¬ is_referencevalue(st[r -- sks]) ∧ ¬ junkref(str, r, st) → ¬ fits(r, sks + sk ', st)
st[r -- sks1] = refval(r1) ∧ is_referencevalue(st[r -- sks1]), is_indexkey(sk), fits(r, sks1 + sk ', st), fits(r0, sks + mkfs(class, ty, fieldvar) ' ', st) ⊦ (st[r1 -- sk, val][r0 -- (sks + mkfs(class, ty, fieldvar) ' '), val0]) = (st[r0 -- (sks + mkfs(class, ty, fieldvar) ' '), val0][r -- (sks1 + sk '), val]), sk = mkfs(class, ty, fieldvar) ', junkref(str, r0, st), junkref(str, r, st), is_reftype(ty), is_referencevalue(st[r -- (sks1 + sk ')]), is_referencevalue(val0), is_referencevalue(val)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : valuefuns, , refval-xtra, ⊦ ¬ is_referencevalue(val) → val .refval = jvmref], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPELIM : is_referencevalue(val) ⊦ r = val .refval ↔ val = refval(r)])], [EXTRATERMS : (st[r -- sks1], r1)]]