| 〈RED1(t2; tn)〉 tn = tn1, 〈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)), irred(t1), value(t1), ∀ t0. ¬ t1 _ t2 =>top t0, tn1 = none ⊃ irred(t2) ; t2 => tn1 .t, ¬ tn1 ≠ none ⊦ 〈skip〉 (tn1 = none ⊃ irred(t1 _ t2); t1 _ t2 => tn1 .t) |
〈RED1(t2; tn)〉 tn = tn1, 〈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)), irred(t1), value(t1), ∀ t0. ¬ t1 _ t2 =>top t0, tn1 = none ⊃ irred(t2) ; t2 => tn1 .t, ¬ tn1 ≠ none, tn1 = none ⊃ ¬ irred(t1 _ t2) ; ¬ t1 _ t2 => tn1 .t ⊦
[[CONCRETESIMPRULES : ()]]