| 〈TOPRED(K _ t3 _ t1; tn)〉 〈if tn = none ∧ ap(K _ t3 _ t1) then { RED1((K _ t3 _ t1) .1; tn) ; if tn ≠ none then tn := some(tn .t _ (K _ t3 _ t1) .2) else if value((K _ t3 _ t1) .1) then { RED1((K _ t3 _ t1) .2; tn) ; if tn ≠ none then tn := some((K _ t3 _ t1) .1 _ tn .t) } }〉 tn = tn0, ∀ n0, t, tn1, tn0. n0 < m + 1 → (〈RED1(t; tn3): n0 〉 tn3 = tn1 ∧ 〈RED1(t; tn3)〉 tn3 = tn0 ∧ tn0 ≠ tn1 → false), tn0 ≠ some(t3), m ≠ 0, value(t3), value(t1) ⊦ |
〈if tn2 = none ∧ ap(K _ t3 _ t1) then { RED1((K _ t3 _ t1) .1; tn2) ; if tn2 ≠ none then tn2 := some(tn2 .t _ (K _ t3 _ t1) .2) else if value((K _ t3 _ t1) .1) then { RED1((K _ t3 _ t1) .2; tn2) ; if tn2 ≠ none then tn2 := some((K _ t3 _ t1) .1 _ tn2 .t) } }〉 tn2 = tn0, 〈TOPRED(K _ t3 _ t1; tn)〉 tn = tn2, ∀ n0, t, tn1, tn0. n0 < m + 1 → (〈RED1(t; tn3): n0 〉 tn3 = tn1 ∧ 〈RED1(t; tn3)〉 tn3 = tn0 ∧ tn0 ≠ tn1 → false), tn0 ≠ some(t3), m ≠ 0, value(t3), value(t1) ⊦
[[CONCRETESIMPRULES : ()]]