| ∀ n0. n0 < 1 → (true → 〈RED(ks(n0); t)〉 ((even(n0) → t = K) ∧ (odd(n0) → t = K _ K))), ks(1) .1 = K _ t2, ap(ks(1)), value(t2), value(ks(1) .2) ⊦ 〈RED(t2; t0)〉 t0 = K _ K |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ks(n) = K _ t1 _ t2 ↔ t1 = K ∧ t2 = K ∧ n = 2], [CSIMPELIM : ⊦ ap(t) → ( t0 = t .1 ∧ t1 = t .2 ↔ t = t0 _ t1)])], [EXTRATERMS : (ks(1), t1, t3)]]