| ∀ n0. n0 < 1 → (true → 〈RED(ks(n0); t)〉 ((even(n0) → t = K) ∧ (odd(n0) → t = K _ K))), tn1 = none ⊦ 〈if tn1 = none ∧ ap(K) then { RED1(K .1; tn1) ; if tn1 ≠ none then tn1 := some(tn1 .t _ K .2) else if value(K .1) then { RED1(K .2; tn1) ; if tn1 ≠ none then tn1 := some(K .1 _ tn1 .t) } }〉 〈n := 1 ; tn0 := tn1 ; if tn0 ≠ none then tn0 := some(tn0 .t _ ks(n) .2) else { RED1(K; tn0) ; if tn0 ≠ none then tn0 := some(ks(n) .1 _ tn0 .t) }〉 〈if tn0 ≠ none then RED(tn0 .t; t0) else t0 := ks(n)〉 ((even(n) → t0 = K) ∧ (odd(n) → t0 = K _ K)) |
∀ n0. n0 < 1 → (true → 〈RED(ks(n0); t)〉 ((even(n0) → t = K) ∧ (odd(n0) → t = K _ K))), tn1 = none ⊦ 〈skip〉 〈n := 1 ; tn0 := tn1 ; if tn0 ≠ none then tn0 := some(tn0 .t _ ks(n) .2) else { RED1(K; tn0) ; if tn0 ≠ none then tn0 := some(ks(n) .1 _ tn0 .t) }〉 〈if tn0 ≠ none then RED(tn0 .t; t0) else t0 := ks(n)〉 ((even(n) → t0 = K) ∧ (odd(n) → t0 = K _ K))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ ap(K)])]]