| st[r -- _length] .intval = st1[r1 -- _length] .intval, st1[r1 -- _type] .type = mkarraytype(byte_type), st[r -- _type] = st1[r1 -- _type], 0 ≤ st1[r1 -- _length] .intval, ∀ i. ¬ i < 0 ∧ ¬ st1[r1 -- _length] .intval ≤ i ∧ ¬ is_referencevalue(st[r -- i ']) → st[r -- i '] = st1[r1 -- i '], ∀ i. ¬ i < 0 ∧ ¬ st1[r1 -- _length] .intval ≤ i ∧ is_referencevalue(st[r -- i ']) → ps=(st[r -- i '] .refval, st, st1[r1 -- i '] .refval, st1) ⊦ r = jvmref, getbytearray(r, 0, st1[r1 -- _length] .intval, st) = getbytearray(r1, 0, st1[r1 -- _length] .intval, st1), r1 = jvmref, junkref(`docs2store', r, st), 0 ≠ st1[r1 -- _length] .intval ∧ okreftype(refval(r), mkarraytype(byte_type), st) |
⊦ okreftype(val, ty, st) ↔ is_referencevalue(val) ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ ty ≤ mkarraytype(byte_type) ↔ ty = mkarraytype(byte_type)], [CSIMPSEQ : ⊦ ¬ rk ∈ st → st[rk] = ∅[rk]], [CSIMPSEQ : ⊦ ∅[rk] = noval], [CSIMPSEQ : ⊦ ¬ r -- _type ∈ st → ( junkref(str, r, st) ↔ r ≠ jvmref)], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ ¬ is_typevalue(val) → val .type = void_type], [CSIMPSEQ : ⊦ mkarraytype(ty) ≠ void_type], [CSIMPFORWARD : ⊦ j ≤ i ∧ i ≤ 0 → j ≤ 0], [CSIMPSEQ : ⊦ getbytearray(r, i, 0, st) = []])], [EXTRATERMS : (st, mkarraytype(byte_type), refval(r))]]