| ∀ n0, t', t. n0 < n → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t0)〉 t0 = t'), n ≠ 0, irred(t'), t => t0, (=> ^ m)(t0, t'), n = m + 1 ⊦ 〈RED(t; t0)〉 t0 = t' |
∀ n0, t', t. n0 < m + 1 → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t0)〉 t0 = t'), irred(t'), t => t0, (=> ^ m)(t0, t') ⊦ 〈RED(t; t0)〉 t0 = t'
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + 1 ≠ 0])]]