| oktype(val, ty, st), r -- mkfs(class, ty0, fieldvar0) ' ∈ st, oktype(st[r -- mkfs(class, ty0, fieldvar0) '], ty0, st), r ∈ st ⊦ mkfs(class0, ty, fieldvar) ' = _type, oktype(((r = r0 ∧ class = class0 ∧ ty0 = ty ∧ fieldvar0 = fieldvar) ⊃ val; st[r -- mkfs(class, ty0, fieldvar0) ']), ty0, st) |
⊦ ¬ oktype(val, ty, st0) → ¬ oktype(val, ty, st1)
[[CONCRETESIMPRULES : ()]]