Proof step 21 from proof okarray-del (previous step)

User applied rule insert rewrite lemma

And obtained the following new goals

• Proof step 1:

  ⊦ okarray(r, ty, st) ↔ okreftype(refval(r), mkarraytype(ty), st) ∧ r ≠ jvmref ∧ r -- _length ∈ st ∧ is_integervalue(st[r -- _length]) ∧ 0 ≤ st[r -- _length] .intval ∧ is_arrayref(r, st[r -- _length] .intval, st) ∧ (∀ j. 0 ≤ j ∧ j < st[r -- _length] .intval → oktype(st[r -- j '], ty, st))

• Proof step 20:

  ⊦ r = r0, okreftype(refval(r0), mkarraytype(ty), st -- r) ∧ r0 ≠ jvmref ∧ r0 -- _length ∈ st -- r ∧ is_integervalue((st -- r)[r0 -- _length]) ∧ 0 ≤ (st -- r)[r0 -- _length] .intval ∧ is_arrayref(r0, (st -- r)[r0 -- _length] .intval, st -- r) ∧ (∀ j. 0 ≤ j ∧ j < (st -- r)[r0 -- _length] .intval → oktype((st -- r)[r0 -- j '], ty, st -- r)) ↔ okarray(r0, ty, st)

Rule argument

Additional information

[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st -- r, ty, r0)]]