| oktype(val, ty, st), goodfieldandtype(r, sk, st), is_indexkey(sk) ⊦ mkfs(class0, ty, fieldvar) ' = _type, goodfieldandtype(r, sk, st[r0 -- mkfs(class0, ty, fieldvar) ', val]) |
⊦ is_indexkey(sk) ↔ (∃ i. sk = i ')
⊦ ¬ goodfieldandtype(r, i ', st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (sk)]]