| j0 < j, eqex(st, st0, r0), eqex(st0, st, r0), 0 ≤ j0, 0 < j ⊦ st0[r -- (i + j0) '] = st[r -- (i + j0) '], r = r0 |
⊦ eqex(st, st0, r) ↔ st -- r = st0 -- r
j0 < j, st -- r0 = st0 -- r0, eqex(st0, st, r0), 0 ≤ j0, 0 < j ⊦ st0[r -- (i + j0) '] = st[r -- (i + j0) '], r = r0
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (r0, st0, st)]]