| 〈if value(v4) ∧ value(v0) ∧ value(v) then tn0 := some(v4 _ v _ (v0 _ v)) else tn0 := none〉 〈tn1 := tn0 ; if tn1 = none then { RED1(S _ (S _ K _ K) _ (S _ K _ K); tn1): m0 ; if tn1 ≠ none then tn1 := some(tn1 .t _ (S _ (S _ K _ K) _ (S _ K _ K))) else { RED1(S _ (S _ K _ K) _ (S _ K _ K); tn1): m0 ; if tn1 ≠ none then tn1 := some(S _ (S _ K _ K) _ (S _ K _ K) _ tn1 .t) } }〉 〈if tn1 ≠ none then RED(tn1 .t; t3): m0 + 1 else t3 := S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K))〉 t3 = t, ∀ kappa0, t. kappa0 < (m0 + 1) + 1 → (〈RED(S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K)); t3): kappa0 〉 t3 = t → false), m0 ≠ 0, v = S _ (S _ K _ K) _ (S _ K _ K), v0 = S _ K _ K, v4 = S _ K _ K ⊦ |
〈tn0 := some(v4 _ v _ (v0 _ v))〉 〈tn1 := tn0 ; if tn1 = none then { RED1(S _ (S _ K _ K) _ (S _ K _ K); tn1): m0 ; if tn1 ≠ none then tn1 := some(tn1 .t _ (S _ (S _ K _ K) _ (S _ K _ K))) else { RED1(S _ (S _ K _ K) _ (S _ K _ K); tn1): m0 ; if tn1 ≠ none then tn1 := some(S _ (S _ K _ K) _ (S _ K _ K) _ tn1 .t) } }〉 〈if tn1 ≠ none then RED(tn1 .t; t3): m0 + 1 else t3 := S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K))〉 t3 = t, ∀ kappa0, t. kappa0 < (m0 + 1) + 1 → (〈RED(S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K)); t3): kappa0 〉 t3 = t → false), m0 ≠ 0, v = S _ (S _ K _ K) _ (S _ K _ K), v0 = S _ K _ K, v4 = S _ K _ K ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ value(S _ K _ K)], [CSIMPSEQ : ⊦ value (S _ (S _ K _ K) _ (S _ K _ K))])]]