| r -- fs ' ∈ st, okval(st[r -- fs '], fs .type), okval(val, fs .type), r ∈ st ⊦ junkrefs(str, [] + r ', ty, st[r -- fs ', val]) ↔ junkrefs(str, [] + r ', ty, st), fs ' = _type, fs ' = _length, r ∈ [] |
r -- fs ' ∈ st, okval(st[r -- fs '], fs .type), okval(val, fs .type), r ∈ st ⊦ fs ' = _type, fs ' = _length, junkrefs(str, r ', ty, st[r -- fs ', val]) ↔ junkrefs(str, r ', ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ r ∈ []], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ [] + refs = refs])]]