| 〈RED(t; t'): kappa 〉 t' = t1, ¬ t =>* t1 ∨ ¬ irred(t1) ⊦ |
〈RED(t; t'): 0 〉 t' = t1, ¬ t =>* t1 ∨ ¬ irred(t1) ⊦
〈RED(t; t'): kappa0 +1 〉 t' = t1, ∀ t, t1. ¬ (〈RED(t; t'): kappa0 〉 t' = t1 ∧ (¬ t =>* t1 ∨ ¬ irred(t1))), ¬ t =>* t1 ∨ ¬ irred(t1) ⊦
[[CONCRETESIMPRULES : ([CSIMPGEN : nat generated by 0, +1;])]]