| 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, r2 ≠ r1 ∨ class0 ≠ class ∨ ty0 ≠ ty ∨ fieldvar0 ≠ fieldvar ⊦ (st[r2 -- mkfs(class0, ty0, fieldvar0) ', val0][r1 -- mkfs(class, ty, fieldvar) ', val]) = (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) |
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, r2 ≠ r1 ∨ class0 ≠ class ∨ ty0 ≠ ty ∨ fieldvar0 ≠ fieldvar ⊦ sks1 = [], (st[r2 -- mkfs(class0, ty0, fieldvar0) ', val0][r1 -- mkfs(class, ty, fieldvar) ', val]) = (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 : storefuns, , lookup-empty, ⊦ st[r -- []] = refval(r)], [CSIMPNAMEDSEQ : javavalue, , inj-03, ⊦ refval(r) = refval(r0) ↔ r = r0], [CSIMPNAMEDSEQ : javavalue, , sel-09, ⊦ refval(r) .refval = r], [CSIMPNAMEDSEQ : list, storekeys, Nil, ⊦ [] + sks = sks], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1])], [EXTRAFMAS : (sks1 = [])]]