| 〈t0 := t〉 t0 = t1, 〈RED1(t; tn0)〉 tn0 = tn, 〈RED1(t; tn0): kappa0 〉 tn0 = tn, ∀ t0, t2. ¬ 〈RED(t0; t'): kappa0 〉 t' = t2 ∨ t0 =>* t2 ∧ irred(t2), ¬ t =>* t1 ∨ ¬ irred(t1), tn = none ⊃ irred(t) ; t => tn .t, ¬ tn ≠ none ⊦ |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ t =>* t])]]