| ⊦ ¬ r ∈ [] ∧ fs ' ≠ _type ∧ fs ' ≠ _length ∧ oktype(val, fs .type, st) ∧ r -- fs ' ∈ st ∧ oktype(st[r -- fs '], fs .type, st) → (validrefs(str, [] + r0 ', ty, st[r -- fs ', val]) ↔ validrefs(str, [] + r0 ', ty, st)) |
okval(val, fs .type), r -- fs ' ∈ st, okval(st[r -- fs '], fs .type), r ∈ st ⊦ fs ' = _length, fs ' = _type, validrefs(str, r0 ', ty, st[r -- fs ', val]) ↔ validrefs(str, r0 ', ty, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ ¬ r ∈ []], [CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ [] + refs = refs])]]