| 〈RED1(ks(n0); tn)〉 tn = tn0, ks(n0) .1 = K, ks(n0) .2 ≠ ks(n0 + 1 - 2), n0 ≠ 0, ap(ks(n0)), value(ks(n0) .2), tn0 = none → n0 = 1, tn0 ≠ none → n0 ≠ 1 ∧ tn0 = some(ks(n0 - 2)) ⊦ |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ks(n) = K _ t1 ↔ t1 = K ∧ n = 1], [CSIMPSEQ : ⊦ ks(0) = K], [CSIMPELIM : ⊦ ap(t) → ( t0 = t .1 ∧ t1 = t .2 ↔ t = t0 _ t1)])], [EXTRATERMS : (ks(n0), t, t0)]]