| 〈RED1(t'; tn)〉 tn = tn1, ∀ n0, t', t. n0 < 0 → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t0)〉 t0 = t'), irred(t'), tn1 = none ⊃ irred(t') ; t' => tn1 .t, tn1 ≠ none ⊦ 〈RED(tn1 .t; t1)〉 t1 = t' |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ irred(t) → ¬ t => t0])]]