| r2 -- mkfs(class0, ty0, fieldvar0) ' ≠ r1 -- mkfs(class, ty, fieldvar) ', 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[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 ⊦ (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 : fieldspec, , inj-01, ⊦ mkfs(class1, ty, fieldvar) = mkfs (class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)], [CSIMPNAMEDSEQ : storekey, , inj-03, ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPNAMEDSEQ : refkey, , inj-01, ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]