| 〈RED1(t; tn0): kappa0 〉 tn0 = some(t3), 〈RED1(t; tn0)〉 tn0 = some(t3), 〈RED(t3; t0): kappa0 〉 t0 = t1, t => t3, ¬ t =>* t1 ∨ t1 => t', t3 =>* t1, irred(t1) ⊦ |
〈RED1(t; tn0)〉 tn0 = some(t3), 〈RED1(t; tn0): kappa0 〉 tn0 = some(t3), 〈RED(t3; t0): kappa0 〉 t0 = t1, t => t3, ¬ t =>* t1, t3 =>* t1, irred(t1) ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ irred(t) → ¬ t => t0])]]