| st[r -- sks] .refval = r, # sks = 1 + # refs1, validrefs(str, r ' + refs1 + r ', st[r -- _type] .type, st), path∃(str, r, r, st), fits(r, sks, st), ∀ n. n ≠ 0 ∧ ¬ # sks < n → st[r -- firstn(n, sks)] .refval = (r ' + refs1 + r ')[n], ∀ st, str, refs2, r0. # (r0 ' + refs2) < # (r ' + refs1 + (r + refs)) → (validrefs(str, r0 ' + refs2, st[r0 -- _type] .type, st) → hasSharing(r0, st) ∨ ¬ r0 ∈ refs2 ∧ ¬ dups(refs2)) ⊦ sks = [], ∃ sks1, sks2. fits(r, sks1, st) ∧ fits(r, sks2, st) ∧ sks1 ≠ sks2 ∧ sks1 ≠ [] ∧ sks2 ≠ [] ∧ st[r -- sks1] .refval ≠ jvmref ∧ st[r -- sks1] = st[r -- sks2] |
st[r -- sks] .refval = r, # sks = 1 + # refs1, validrefs(str, r ' + refs1 + r ', st[r -- _type] .type, st), path∃(str, r, r, st), fits(r, sks, st), ∀ n. n ≠ 0 ∧ ¬ # sks < n → st[r -- firstn(n, sks)] .refval = (r ' + refs1 + r ')[n], ∀ st, str, refs2, r0. # (r0 ' + refs2) < # (r ' + refs1 + (r + refs)) → (validrefs(str, r0 ' + refs2, st[r0 -- _type] .type, st) → hasSharing(r0, st) ∨ ¬ r0 ∈ refs2 ∧ ¬ dups(refs2)) ⊦ sks = [], fits(r, sks, st) ∧ fits(r, sks + sks, st) ∧ sks ≠ sks + sks ∧ sks ≠ [] ∧ sks + sks ≠ [] ∧ st[r -- sks] .refval ≠ jvmref ∧ st[r -- sks] = st[r -- (sks + sks)]
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (sks, sks + sks)]]