| # 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] ⊦ sks = sks0, r2 = r1, r1 = r0, r0 = jvmref, path∃(str, r2, r1, st), path∃(str, r1, r2, st), fits(r, sks, st) ∧ fits(r, sks0, st) ∧ sks ≠ sks0 ∧ sks ≠ [] ∧ sks0 ≠ [] ∧ st[r -- sks] .refval ≠ jvmref ∧ st[r -- sks] = st[r -- 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] ⊦ sks = sks0, r2 = r1, r1 = r0, r0 = jvmref, sks0 = [], sks = [], path∃(str, r2, r1, st), path∃(str, r1, r2, st), st[r -- sks] = st[r -- sks0] ∧ st[r -- sks] .refval ≠ jvmref
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = 0 ↔ m = 0 ∧ n = 0], [CSIMPSEQ : ⊦ # [] = 0])]]