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