| 〈RED1(t; tn)〉 tn = tn1, ∀ t0. #(t0) < #(t) → (¬ hasS(t0) → 〈RED(t0; t')〉 true), ¬ hasS(t), tn1 ≠ none → ¬ hasS(tn1) ∧ #(tn1) < #(t), tn1 ≠ none ⊦ 〈RED(tn1 .t; t0)〉 true |
〈RED1(t; tn)〉 tn = tn1, ∀ t0. #(t0) < #(t) → (¬ hasS(t0) → 〈RED(t0; t')〉 true), tn1 ≠ none, #(tn1) < #(t), ¬ hasS(tn1), ¬ hasS(t) ⊦ 〈RED(tn1 .t; t0)〉 true
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m < n → n ≠ 0], [CSIMPFORWARD : ⊦ m < n → n ≠ 0])]]