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