| 〈let v1 = t .1 .1 .2, v2 = t .1 .2, v3 = t .2 in if value(v1) ∧ value(v2) ∧ value(v3) then tn3 := some(v1 _ v3 _ (v2 _ v3)) else tn3 := none〉 tn3 = tn1, 〈RED1(t; tn2)〉 tn2 = tn0, ∀ n0, t, tn1, tn0. n0 < m + 1 → (〈RED1(t; tn2): n0 〉 tn2 = tn1 ∧ 〈RED1(t; tn2)〉 tn2 = tn0 ∧ tn0 ≠ tn1 → false), tn0 ≠ tn1, ¬ (tn1 = none ∧ ap(t)), tn3 = tn2, m ≠ 0, ¬ (ap(t) ∧ ap(t .1) ∧ t .1 .1 = K ∧ value(t .1 .2) ∧ value(t .2)), ap(t) ∧ ap(t .1) ∧ ap(t .1 .1) ∧ t .1 .1 .1 = S ⊦ |
〈if value(v4) ∧ value(v0) ∧ value(v) then tn3 := some(v4 _ v _ (v0 _ v)) else tn3 := none〉 tn3 = tn1, 〈RED1(t; tn2)〉 tn2 = tn0, ∀ n0, t, tn1, tn0. n0 < m + 1 → (〈RED1(t; tn2): n0 〉 tn2 = tn1 ∧ 〈RED1(t; tn2)〉 tn2 = tn0 ∧ tn0 ≠ tn1 → false), tn0 ≠ tn1, ¬ (tn1 = none ∧ ap(t)), tn3 = tn2, m ≠ 0, ¬ (ap(t) ∧ ap(t .1) ∧ t .1 .1 = K ∧ value(t .1 .2) ∧ value(t .2)), ap(t) ∧ ap(t .1) ∧ ap(t .1 .1) ∧ t .1 .1 .1 = S, v = t .2, v0 = t .1 .2, v4 = t .1 .1 .2 ⊦
[[CONCRETESIMPRULES : ()]]