| oktype(val, ty, st), goodfieldandtype(r, sk, st), goodfieldsandtypes(r, sks0, st), goodfieldandtype(r, sk, st[r0 -- mkfs(class0, ty, fieldvar) ', val]), ∀ val, ty, st, r, class0, fieldvar, r0. oktype(val, ty, st) ∧ goodfieldsandtypes(r, sks0, st) → mkfs(class0, ty, fieldvar) ' = _type ∨ goodfieldsandtypes(r, sks0, st[r0 -- mkfs(class0, ty, fieldvar) ', val]) ⊦ mkfs(class0, ty, fieldvar) ' = _type, goodfieldsandtypes(r, sks0, st[r0 -- mkfs(class0, ty, fieldvar) ', val]) |
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (val, ty, st, r, class0, fieldvar, r0)]]