| ∀ n0. n0 < 1 → (true → 〈RED(ks(n0); t)〉 ((even(n0) → t = K) ∧ (odd(n0) → t = K _ K))) ⊦ 〈tn := none〉 〈tn0 := tn ; if tn0 = none ∧ ap(K) then { RED1(K .1; tn0) ; if tn0 ≠ none then tn0 := some(tn0 .t _ K .2) else if value(K .1) then { RED1(K .2; tn0) ; if tn0 ≠ none then tn0 := some(K .1 _ tn0 .t) } }〉 〈n0 := 1 ; tn := tn0 ; 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))) ⊦ 〈tn0 := none〉 〈if tn0 = none ∧ ap(K) then { RED1(K .1; tn0) ; if tn0 ≠ none then tn0 := some(tn0 .t _ K .2) else if value(K .1) then { RED1(K .2; tn0) ; if tn0 ≠ none then tn0 := some(K .1 _ tn0 .t) } }〉 〈n0 := 1 ; tn := tn0 ; 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 : ()]]