| sks = sks0, # sks = 2 + # refs0 + # refs2, # sks0 = 2 + # refs + # refs1, validrefs(str, (r ' + refs) + r1 ' + refs1 + r0 ', st[r -- _type] .type, st), validrefs(str, (r ' + refs0) + r2 ' + refs2 + r0 ', st[r -- _type] .type, st), fits(r, sks, st), fits(r, sks0, st), ∀ n. n ≠ 0 ∧ ¬ # sks < n → st[r -- firstn(n, sks)] .refval = ((r ' + refs0) + r2 ' + refs2 + r0 ')[n], ∀ n. n ≠ 0 ∧ ¬ # sks0 < n → st[r -- firstn(n, sks0)] .refval = ((r ' + refs) + r1 ' + refs1 + r0 ')[n] ⊦ r2 = r1, r1 = r0, r0 = jvmref, path∃(str, r2, r1, st), path∃(str, r1, r2, st), hasSharing(r, st) |
# sks0 = 2 + # refs2 + # refs0, # refs + # refs1 = # refs2 + # refs0, validrefs(str, (r ' + refs) + r1 ' + refs1 + r0 ', st[r -- _type] .type, st), validrefs(str, (r ' + refs0) + r2 ' + refs2 + r0 ', st[r -- _type] .type, st), fits(r, sks0, st), ∀ n. n ≠ 0 ∧ ¬ # sks0 < n → st[r -- firstn(n, sks0)] .refval = ((r ' + refs0) + r2 ' + refs2 + r0 ')[n], ∀ n. n ≠ 0 ∧ ¬ # sks0 < n → st[r -- firstn(n, sks0)] .refval = ((r ' + refs) + r1 ' + refs1 + r0 ')[n] ⊦ r2 = r1, r1 = r0, r0 = jvmref, path∃(str, r2, r1, st), path∃(str, r1, r2, st), hasSharing(r, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ m = n + n0 ∧ m = n + n1 → n0 = n1], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m])]]