| 〈RED1(t; tn)〉 tn = tn1, ∀ t0. #(t0) < #(t) → (¬ hasS(t0) → 〈RED(t0; t')〉 true), tn1 ≠ none, #(tn1) < #(t), ¬ hasS(tn1), ¬ hasS(t), tn1 = some(t1) ⊦ 〈RED(t1; t0)〉 true |
〈RED1(t; tn)〉 tn = some(t1), ∀ t0. #(t0) < #(t) → (¬ hasS(t0) → 〈RED(t0; t')〉 true), #(t1) < #(t), ¬ hasS(t), ¬ hasS(t1) ⊦ 〈RED(t1; t0)〉 true
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ hasS(some(t)) ↔ hasS(t)], [CSIMPSEQ : ⊦ #(some(t)) = #(t)], [CSIMPSEQ : ⊦ some(t) ≠ none])]]