| ∀ r, st, r1, fs, sho, str. fits(r, sks0, st[r1 -- fs ', shortval(sho)]) ∧ is_shortvalue(st[r1 -- fs ']) → junkref(str, r, st) ∨ fits(r, sks0, st), fits(r, sk + sks0, st[r1 -- fs ', shortval(sho)]), is_shortvalue(st[r1 -- fs ']) ⊦ junkref(str, r, st), fits(r, sk + sks0, st) |
is_shortvalue(st[r1 -- fs ']), fits(r, sk ' + sks0, st[r1 -- fs ', shortval(sho)]), ∀ r, st, r1, fs, sho, str. fits(r, sks0, st[r1 -- fs ', shortval(sho)]) ∧ is_shortvalue(st[r1 -- fs ']) → junkref(str, r, st) ∨ fits(r, sks0, st) ⊦ junkref(str, r, st), fits(r, sk ' + sks0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]