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