| ∀ 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) } }〉 〈n0 := 1 ; tn := tn1 ; if tn ≠ none then tn := some(ks(n0) .1 _ tn .t)〉 〈if tn ≠ none then RED(tn .t; t0) else t0 := ks(n0)〉 ((even(n0) → t0 = K) ∧ (odd(n0) → t0 = K _ K)) |
∀ n0. n0 < 1 → (true → 〈RED(ks(n0); t)〉 ((even(n0) → t = K) ∧ (odd(n0) → t = K _ K))), tn1 = none ⊦ 〈skip〉 〈n0 := 1 ; tn := tn1 ; if tn ≠ none then tn := some(ks(n0) .1 _ tn .t)〉 〈if tn ≠ none then RED(tn .t; t0) else t0 := ks(n0)〉 ((even(n0) → t0 = K) ∧ (odd(n0) → t0 = K _ K))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ ap(K)])]]