| r -- mkfs(class, ty, fieldvar) ' ∈ st, okval(val, ty), r ∈ st, okval(st[r -- mkfs(class, ty, fieldvar) '], ty) ⊦ mkfs(class, ty, fieldvar) ' = _type, r0 -- mkfs(class0, ty0, fieldvar0) ' ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- mkfs(class0, ty0, fieldvar0) '], ty0) ↔ r0 -- mkfs(class0, ty0, fieldvar0) ' ∈ st ∧ okval(st[r0 -- mkfs(class0, ty0, fieldvar0) '], ty0) |
r -- mkfs(class, ty, fieldvar) ' ∈ st, okval(val, ty), r ∈ st, okval(st[r -- mkfs(class, ty, fieldvar) '], ty) ⊦ r0 -- mkfs(class0, ty0, fieldvar0) ' = r -- mkfs(class, ty, fieldvar) ', mkfs(class, ty, fieldvar) ' = _type, r0 -- mkfs(class0, ty0, fieldvar0) ' ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- mkfs(class0, ty0, fieldvar0) '], ty0) ↔ r0 -- mkfs(class0, ty0, fieldvar0) ' ∈ st ∧ okval(st[r0 -- mkfs(class0, ty0, fieldvar0) '], ty0)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) = mkfs(class0, ty0, fieldvar0) ↔ class = class0 ∧ ty = ty0 ∧ fieldvar = fieldvar0], [CSIMPSEQ : ⊦ rk ∈ st[rk, val]], [CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])], [EXTRAFMAS : ( r0 -- mkfs(class0, ty0, fieldvar0) ' = r -- mkfs(class, ty, fieldvar) ')]]