| oktype(val, ty, st), goodfieldsandtypes(r, sks, st) ⊦ mkfs(class0, ty, fieldvar) ' = _type, goodfieldsandtypes(r, sks, st[r0 -- mkfs(class0, ty, fieldvar) ', val]) |
⊦ goodfieldsandtypes(r, [], st)
∀ 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]), oktype(val, ty, st), goodfieldsandtypes(r, sk + sks0, st) ⊦ mkfs(class0, ty, fieldvar) ' = _type, goodfieldsandtypes(r, sk + sks0, st[r0 -- mkfs(class0, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPGEN : storekeys generated by [], +;])]]