| 〈let tn = none in { RED1(t4; tn): (2 + m) -1 ; if tn ≠ none then RED(tn .t; t2): (2 + m) -1 else t2 := t4 }〉 t2 = t, ∀ kappa0, t. kappa0 < ((((m + 1) + 1) + 1) + 1) + 1 → (〈RED(S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K)); t3): kappa0 〉 t3 = t → false), m ≠ 0, t2 = t3 ∧ t4 = S _ (S _ K _ K) _ (S _ K _ K) _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))) ⊦ |
〈RED1(t4; tn0): (2 + m) -1 〉 〈if tn0 ≠ none then RED(tn0 .t; t2): (2 + m) -1 else t2 := t4〉 t2 = t, ∀ kappa0, t. kappa0 < ((((m + 1) + 1) + 1) + 1) + 1 → (〈RED(S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K)); t3): kappa0 〉 t3 = t → false), m ≠ 0, t2 = t3 ∧ t4 = S _ (S _ K _ K) _ (S _ K _ K) _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))), tn0 = none ⊦
[[CONCRETESIMPRULES : ()]]