| j0 < j, st -- r0 = st0 -- r0, eqex(st0, st, r0), 0 ≤ j0, 0 < j ⊦ st0[r -- (i + j0) '] = st[r -- (i + j0) '], r = r0 |
⊦ st1 = st2 ↔ (∀ rk. (rk ∈ st1 ↔ rk ∈ st2) ∧ st1[rk] = st2[rk])
j0 < j, ∀ rk. (rk ∈ st -- r0 ↔ rk ∈ st0 -- r0) ∧ (st -- r0)[rk] = (st0 -- r0)[rk], eqex(st0, st, r0), 0 ≤ j0, 0 < j ⊦ st0[r -- (i + j0) '] = st[r -- (i + j0) '], r = r0
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st0 -- r0, st -- r0)]]