| 〈RED1(ks(n0); tn)〉 tn = tn0, ks(n0) .1 .1 = S, ap(ks(n0)), ap(ks(n0) .1), tn0 = none → n0 ≤ 1, tn0 ≠ none → ¬ n0 ≤ 1 ∧ tn0 = some(ks(n0 - 2)), ¬ (ks(n0) .1 = K ∧ value(ks(n0) .2)), ¬ (value(ks(n0) .1 .2) ∧ value(ks(n0) .2)) ⊦ 〈RED1(ks(n0); tn)〉 〈if tn ≠ none then tn := some(tn .t _ K) else if value(ks(n0)) then { RED1(K; tn) ; if tn ≠ none then tn := some(ks(n0) _ tn .t) }〉 ((tn = none → n0 = 0) ∧ (tn ≠ none → n0 ≠ 0 ∧ tn = some(ks(n0 + 1 - 2)))) |
〈RED1(ks(n0); tn)〉 tn = tn1, ks(n0) .1 .1 = S, ap(ks(n0)), ap(ks(n0) .1), tn0 = none → n0 ≤ 1, tn0 ≠ none → ¬ n0 ≤ 1 ∧ tn0 = some(ks(n0 - 2)), ¬ (ks(n0) .1 = K ∧ value(ks(n0) .2)), ¬ (value(ks(n0) .1 .2) ∧ value(ks(n0) .2)), tn1 = tn0 ⊦ 〈if tn1 ≠ none then tn1 := some(tn1 .t _ K) else if value(ks(n0)) then { RED1(K; tn1) ; if tn1 ≠ none then tn1 := some(ks(n0) _ tn1 .t) }〉 ((tn1 = none → n0 = 0) ∧ (tn1 ≠ none → n0 ≠ 0 ∧ tn1 = some(ks(n0 + 1 - 2))))
[[CONCRETESIMPRULES : ()]]