| 〈RED1(ks(n0); tn)〉 tn = tn1, tn0 = none → n0 ≤ 1, tn0 ≠ none → ¬ n0 ≤ 1 ∧ tn0 = some(ks(n0 - 2)), ¬ (ap(ks(n0)) ∧ ks(n0) .1 = K ∧ value(ks(n0) .2)), ¬ (ap(ks(n0)) ∧ ap(ks(n0) .1) ∧ ks(n0) .1 .1 = S), tn1 = tn0, tn1 ≠ none, ¬ (some(tn1 .t _ K) = none → n0 = 0) ∨ ¬ (some(tn1 .t _ K) ≠ none → n0 ≠ 0 ∧ some(tn1 .t _ K) = some(ks(n0 + 1 - 2))) ⊦ |
〈RED1(ks(n0); tn)〉 tn = some(ks(n0 - 2)), n0 ≠ 0, n0 ≠ 1, ks(n0 - 2) _ K ≠ ks(n0 + 1 - 2), ¬ (ap(ks(n0)) ∧ ap(ks(n0) .1) ∧ ks(n0) .1 .1 = S), ¬ (ap(ks(n0)) ∧ ks(n0) .1 = K ∧ value(ks(n0) .2)) ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ some(t) .t = t], [CSIMPSEQ : ⊦ some(t) = some(t0) ↔ t = t0], [CSIMPSEQ : ⊦ some(t) ≠ none], [CSIMPSEQ : ⊦ 1 < m ↔ ¬ (m = 0 ∨ m = 1)], [CSIMPSEQ : ⊦ ¬ m ≤ n ↔ n < m])]]