| ⊦ is_obj(r, st) ∧ oktype(val, fs .type, st) ∧ fs ' ≠ _type → is_obj(r, st[r -- fs ', val]) |
is_obj(r, st), okval(val, fs .type) ⊦ fs ' = _type, is_obj(r, st[r -- fs ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)])]]