| 〈RED1(t; tn)〉 tn = some(t2), ∀ n0, t', t. n0 < m + 1 → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t2)〉 t2 = t'), irred(t'), (=> ^ m)(t2, t'), t => t2 ⊦ 〈RED(t2; t1)〉 t1 = t' |
〈RED(t2; t0)〉 t0 = t', 〈RED1(t; tn)〉 tn = some(t2), ∀ n0, t', t. n0 < m + 1 → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t2)〉 t2 = t'), irred(t'), (=> ^ m)(t2, t'), t => t2 ⊦ 〈RED(t2; t1)〉 t1 = t'
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m < n + 1 ↔ ¬ n < m], [CSIMPSEQ : ⊦ ¬ n < n], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m])], [EXTRATERMS : (m, t', t2)]]