| st[r -- i0 '] = refval(r2), junkrefs(str, r2 ' + refs, st[r -- _type] .type .type, st[r1 -- i ', val]), i0 < st[r -- _length] .intval, okval(val, st[r1 -- _type] .type .type), is_array(str, r, st), st[r -- _type] .type ≤ ty, is_array(str, r, st[r1 -- i ', val]), 0 < st[r -- _length] .intval, 0 ≤ i0, ∀ val0, st0, r0, str0, ty0, i1. okval(val0, st0[r0 -- _type] .type .type) ∧ junkrefs(str0, r2 ' + refs, ty0, st0[r0 -- i1 ', val0]) → is_referencevalue(val0) ∨ junkrefs(str0, r2 ' + refs, ty0, st0), r ≠ r1 ∨ i0 ≠ i ⊦ r = jvmref, junkrefs(str, r ' + r2 ' + refs, ty, st), is_referencevalue(val) |
⊦ is_array(str, r, st) ∧ st[r -- _type] .type ≤ ty → ( junkrefs(str, r ' + refs, ty, st) ↔ refs ≠ [] ∧ (∃ i. 0 ≤ i ∧ i < st[r -- _length] .intval ∧ is_referencevalue(st[r -- i ']) ∧ refs .first = st[r -- i '] .refval ∧ junkrefs(str, refs, st[r -- _type] .type .type, st)))
is_array(str, r, st) ∧ st[r -- _type] .type ≤ ty, st[r -- i0 '] = refval(r2), junkrefs(str, r2 ' + refs, st[r -- _type] .type .type, st[r1 -- i ', val]), i0 < st[r -- _length] .intval, okval(val, st[r1 -- _type] .type .type), is_array(str, r, st), st[r -- _type] .type ≤ ty, is_array(str, r, st[r1 -- i ', val]), 0 < st[r -- _length] .intval, 0 ≤ i0, ∀ val0, st0, r0, str0, ty0, i1. okval(val0, st0[r0 -- _type] .type .type) ∧ junkrefs(str0, r2 ' + refs, ty0, st0[r0 -- i1 ', val0]) → is_referencevalue(val0) ∨ junkrefs(str0, r2 ' + refs, ty0, st0), r ≠ r1 ∨ i0 ≠ i ⊦ r = jvmref, r2 ' + refs ≠ [] ∧ (∃ i. 0 ≤ i ∧ i < st[r -- _length] .intval ∧ is_referencevalue(st[r -- i ']) ∧ (r2 ' + refs) .first = st[r -- i '] .refval ∧ junkrefs(str, r2 ' + refs, st[r -- _type] .type .type, st)), is_referencevalue(val)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1])], [EXTRATERMS : (st, ty, r2 ' + refs, r, str)]]