| 〈TOPRED(t; tn)〉 tn = tn1, ∀ t0. #(t0) < #(t) → (true → 〈RED1(t0; tn)〉 (tn = none ⊃ irred(t0); t0 => tn .t)), tn1 = none, ∀ t0. ¬ t =>top t0, ¬ ap(t), tn1 = none ⊃ ¬ irred(t) ; ¬ t => tn1 .t ⊦ |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ ap(t) → (¬ irred(t) ↔ false)])]]