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