| is_fskey(sk0), 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 -- sk0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- sk0], sk0 .fs .type) ↔ goodfieldandtype(r0, sk0, st) |
sk0 = fs ', is_fskey(sk0), 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 -- sk0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- sk0], fs .type) ↔ goodfieldandtype(r0, sk0, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_fskey(sk) → (fs = sk .fs ↔ sk = fs ')])], [EXTRATERMS : (sk0, fs)]]