| j0 < j, st ⊆ st0, 0 ≤ i, 0 ≤ j0, 0 < j, ∀ j0. ¬ j0 < 0 ∧ ¬ i + j ≤ j0 → r -- j0 ' ∈ st ⊦ r -- (i + j0) ' ∈ st, st[r -- (i + j0) '] = st0[r -- (i + j0) '] |
j0 < j, st ⊆ st0, 0 ≤ i, 0 ≤ j0, 0 < j, ∀ j0. ¬ j0 < 0 ∧ ¬ i + j ≤ j0 → r -- j0 ' ∈ st ⊦ noval = st0[r -- (i + j0) '], r -- (i + j0) ' ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ ∅[rk] = noval], [CSIMPSEQ : ⊦ ¬ rk ∈ st → st[rk] = ∅[rk]])]]