| 〈if tn = none then { RED1(K _ (S _ (S _ K _ K) _ (S _ K _ K)); tn): m ; if tn ≠ none then tn := some(tn .t _ (K _ (S _ (S _ K _ K) _ (S _ K _ K)))) else { RED1(K _ (S _ (S _ K _ K) _ (S _ K _ K)); tn): m ; if tn ≠ none then tn := some(K _ (S _ (S _ K _ K) _ (S _ K _ K)) _ tn .t) } }〉 〈tn0 := tn ; if tn0 ≠ none then tn0 := some(tn0 .t _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))))〉 〈if tn0 ≠ none then RED(tn0 .t; t3): 2 + m else t3 := 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)))〉 t3 = 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, tn = some(S _ (S _ K _ K) _ (S _ K _ K)) ⊦ |
〈skip〉 〈tn0 := tn ; if tn0 ≠ none then tn0 := some(tn0 .t _ (S _ K _ K _ (S _ (S _ K _ K) _ (S _ K _ K))))〉 〈if tn0 ≠ none then RED(tn0 .t; t3): 2 + m else t3 := 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)))〉 t3 = 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, tn = some(S _ (S _ K _ K) _ (S _ K _ K)) ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ some(t) ≠ none])]]