| 〈if ap(t1) ∧ ap(t1 .1) ∧ t1 .1 .1 = K ∧ value(t1 .1 .2) ∧ value(t1 .2) then tn := some(t1 .1 .2) else if ap(t1) ∧ ap(t1 .1) ∧ ap(t1 .1 .1) ∧ t1 .1 .1 .1 = S then let v1 = t1 .1 .1 .2, v2 = t1 .1 .2, v3 = t1 .2 in if value(v1) ∧ value(v2) ∧ value(v3) then tn := some(v1 _ v3 _ (v2 _ v3)) else tn := none else tn := none〉 tn = none, ∀ t0. #(t0) < #(t1 _ t2) → (¬ hasS(t0) → 〈RED1(t0; tn)〉 (tn ≠ none → ¬ hasS(tn) ∧ #(tn) < #(t0))), value(t1), ¬ hasS(t1), ¬ hasS(t2), ¬ ap(t1) ⊦ 〈RED1(t2; tn0)〉 〈if tn0 ≠ none then tn0 := some(t1 _ tn0 .t)〉 (tn0 ≠ none → ¬ hasS(tn0) ∧ ¬ #(t1) + #(t2) < #(tn0)) |
〈if ap(t1) ∧ ap(t1 .1) ∧ ap(t1 .1 .1) ∧ t1 .1 .1 .1 = S then let v1 = t1 .1 .1 .2, v2 = t1 .1 .2, v3 = t1 .2 in if value(v1) ∧ value(v2) ∧ value(v3) then tn := some(v1 _ v3 _ (v2 _ v3)) else tn := none else tn := none〉 tn = none, ∀ t0. #(t0) < #(t1 _ t2) → (¬ hasS(t0) → 〈RED1(t0; tn)〉 (tn ≠ none → ¬ hasS(tn) ∧ #(tn) < #(t0))), value(t1), ¬ hasS(t1), ¬ hasS(t2), ¬ ap(t1) ⊦ 〈RED1(t2; tn0)〉 〈if tn0 ≠ none then tn0 := some(t1 _ tn0 .t)〉 (tn0 ≠ none → ¬ hasS(tn0) ∧ ¬ #(t1) + #(t2) < #(tn0))
[[CONCRETESIMPRULES : ()]]