| # refs1 = # refs2 + 1 + # refs0, # sks0 = 2 + # refs + # refs1, # refs4 = # refs, st[r -- firstn(1 + # refs, sks0)] = refval(r1), validrefs(str, (r1 ' + refs0) + r2 ' + refs2 + r0 ', st[r1 -- _type] .type, st), validrefs(str, r ' + refs4 + (r1 ' + refs0) + r2 ' + refs2 + r0 ', st[r -- _type] .type, st), validrefs(str, r ' + refs + r1 ' + refs1 + r0 ', st[r -- _type] .type, st), fits(r, sks0, st) ⊦ r1 = r0, r2 = r1, r0 = jvmref, path∃(str, r2, r1, st), hasSharing(r, st), validrefs(str, (r1 ' + refs0) + r2 ', st[r1 -- _type] .type, st) |
⊦ ¬ validrefs(str, refs, ty, st) → ¬ validrefs(str, refs + refs0, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1])], [EXTRATERMS : (str, (r1 ' + refs0) + r2 ', st[r1 -- _type] .type, st, refs2 + r0 ')]]