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