| 〈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) ⊦ |
〈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)) ⊦
[[CONCRETESIMPRULES : ()]]