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