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