| 〈RED(S _ (S _ K _ K) _ (S _ K _ K) _ (S _ (S _ K _ K) _ (S _ K _ K)); t0): kappa 〉 t0 = 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) ⊦ |
⊦
〈t2 := t0, t1 := 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(t1; tn): kappa -1 ; if tn ≠ none then RED(tn .t; t2): kappa -1 else t2 := t1 }〉 t2 = 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) ⊦
[[CONCRETESIMPRULES : ()]]