| fits(r, sk ' + sks0, st), is_bytevalue(st[r1 -- fs ']), ∀ 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) ⊦ r -- sk = r1 -- fs ', sks0 = [], (st[r1 -- fs ', byteval(by)][(st[r1 -- fs ', byteval(by)][r -- sk]) .refval -- sks0]) = st[r -- (sk ' + sks0)], junkref(str, r, st) |
fits(r, sk ' + sks0, st), is_bytevalue(st[r1 -- fs ']), ∀ 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), r ≠ r1 ∨ sk ≠ fs ' ⊦ sks0 = [], (st[r1 -- fs ', byteval(by)][(st[r1 -- fs ', byteval(by)][r -- sk]) .refval -- sks0]) = st[r -- (sk ' + sks0)], junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]