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