| 〈RED1(t2; tn)〉 tn = none, 〈RED1(t1; tn)〉 tn = none, 〈TOPRED(t1 _ t2; tn)〉 tn = none, ∀ t0. #(t0) < #(t1 _ t2) → (true → 〈RED1(t0; tn)〉 (tn = none ⊃ irred(t0); t0 => tn .t)), t1 _ t2 => t', irred(t2), value(t1), irred(t1), ¬ t1 _ t2 =>top t', ∀ t0. ¬ t1 _ t2 =>top t0 ⊦ |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ t1 _ t2 => t' ∧ irred(t2) ∧ value(t1) ∧ irred(t1) → t1 _ t2 =>top t'])]]