| oktype(val, sk .fs .type, st), is_fskey(sk), goodfieldsandtypes(r, sks, st) ⊦ sk = _type, goodfieldsandtypes(r, sks, st[r0 -- sk, val]) |
sk = fs ', oktype(val, fs .type, st), is_fskey(sk), goodfieldsandtypes(r, sks, st) ⊦ sk = _type, goodfieldsandtypes(r, sks, st[r0 -- sk, val])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_fskey(sk) → (fs = sk .fs ↔ sk = fs ')])], [EXTRATERMS : (sk, fs)]]