| i1 > 0, i1 > 0, ∀ i, st, fis, class, ty, r0, r, i0. i→n(i0) < i→n(i1) → ( true → r = r0 ∨ addarray(r, initial_value(ty), i0, addobj(r0, class, fis, st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)]) = addobj(r0, class, fis, addarray(r, initial_value(ty), i0, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)]))) ⊦ (addarray(r, initial_value(ty), i1 - 1, addobj(r0, class, fis, st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)]) [r -- (i1 - 1) ', initial_value(ty) ] ) = addobj (r0, class, fis, addarray(r, initial_value(ty), i1 - 1, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)])[r -- (i1 - 1) ', initial_value(ty)]), r = r0 |
0 < i1, ∀ i, st, fis, class, ty, r0, r, i0. i→n(i0) < i→n(i1) → ( true → r = r0 ∨ addarray(r, initial_value(ty), i0, addobj(r0, class, fis, st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)]) = addobj(r0, class, fis, addarray(r, initial_value(ty), i0, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)]))) ⊦ (addarray(r, initial_value(ty), i1 - 1, addobj(r0, class, fis, st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)]) [r -- (i1 - 1) ', initial_value(ty) ] ) = addobj (r0, class, fis, addarray(r, initial_value(ty), i1 - 1, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)])[r -- (i1 - 1) ', initial_value(ty)]), r = r0
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ i > j ↔ j < i])]]