| 〈RED(t3; t0): kappa0 〉 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), tn ≠ none, t => t3, ¬ t =>* t1 ∨ ¬ irred(t1), tn = some(t3) ⊦ |
〈RED(t3; t0): kappa0 〉 t0 = t1, 〈RED1(t; tn0)〉 tn0 = some(t3), 〈RED1(t; tn0): kappa0 〉 tn0 = some(t3), ∀ t0, t2. ¬ 〈RED(t0; t'): kappa0 〉 t' = t2 ∨ t0 =>* t2 ∧ irred(t2), t => t3, ¬ t =>* t1 ∨ ¬ irred(t1) ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ some(t) ≠ none])]]