| sks = [], st[r -- sks1] = refval(r1), st[r0 -- sks] = refval(r2), fits(r0, sks + mkfs(class0, ty0, fieldvar0) ' ', st), fits(r, sks1 + mkfs(class, ty, fieldvar) ' ', st), r1 ≠ r2 ∨ class ≠ class0 ∨ ty ≠ ty0 ∨ fieldvar ≠ fieldvar0 ⊦ (st[r1 -- mkfs(class, ty, fieldvar) ', val][(st[r1 -- mkfs(class, ty, fieldvar) ', val][r0 -- sks]) .refval -- mkfs(class0, ty0, fieldvar0) ', val0] ) = (st[r2 -- mkfs(class0, ty0, fieldvar0) ', val0] [(st[r2 -- mkfs(class0, ty0, fieldvar0) ', val0][r -- sks1]) .refval -- mkfs(class, ty, fieldvar) ', val ] ), is_referencevalue(val), is_referencevalue(val0), is_reftype(ty), is_reftype(ty0), junkref(str, r, st), junkref(str, r0, st) |
st[r -- sks1] = refval(r1), fits(r2, mkfs(class0, ty0, fieldvar0) ' ', st), fits(r, sks1 + mkfs(class, ty, fieldvar) ' ', st), r1 ≠ r2 ∨ class ≠ class0 ∨ ty ≠ ty0 ∨ fieldvar ≠ fieldvar0 ⊦ (st[r1 -- mkfs(class, ty, fieldvar) ', val][r2 -- mkfs(class0, ty0, fieldvar0) ', val0]) = (st[r2 -- mkfs(class0, ty0, fieldvar0) ', val0] [(st[r2 -- mkfs(class0, ty0, fieldvar0) ', val0][r -- sks1]) .refval -- mkfs(class, ty, fieldvar) ', val ] ), junkref(str, r2, st), junkref(str, r, st), is_reftype(ty0), is_reftype(ty), is_referencevalue(val0), is_referencevalue(val)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : list, storekeys, Nil, ⊦ [] + sks = sks], [CSIMPNAMEDSEQ : javavalue, , sel-09, ⊦ refval(r) .refval = r], [CSIMPNAMEDSEQ : javavalue, , inj-03, ⊦ refval(r) = refval(r0) ↔ r = r0], [CSIMPNAMEDSEQ : storefuns, , lookup-empty, ⊦ st[r -- []] = refval(r)])]]