| ¬ sks0 ≠ [], is_bytevalue(st[r1 -- fs ']), fits(r, sk ' + sks0, st), ∀ st, r1, fs, r, by, str. is_bytevalue(st[r1 -- fs ']) ∧ fits(r, sks0, st) → (st[r1 -- fs ', byteval(by)][r -- sks0]) = st[r -- sks0] ∨ junkref(str, r, st) ⊦ (st[r1 -- fs ', byteval(by)][r -- (sk ' + sks0)]) = st[r -- (sk ' + sks0)], junkref(str, r, st) |
⊦ fits(r, [], st)
is_bytevalue(st[r1 -- fs ']), fits(r, sk ', st) ⊦ (st[r1 -- fs ', byteval(by)][r -- sk]) = st[r -- sk], junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ refval(r) = refval(r0) ↔ r = r0], [CSIMPSEQ : ⊦ st[r -- []] = refval(r)], [CSIMPSEQ : ⊦ st[r -- sk '] = st[r -- sk]], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ sks + [] = sks])]]