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