| 〈RED(S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K)) _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))); t3): m0 + 1 〉 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 ⊦ |
⊦
〈let tn = none in { RED1(S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K)) _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))); tn): m0 ; if tn ≠ none then RED(tn .t; t0): m0 else t0 := S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K)) _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))) }〉 t0 = 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 ⊦
[[CONCRETESIMPRULES : ()]]