| 〈RED1(t; tn0): kappa0 〉 〈if tn0 ≠ none then RED(tn0 .t; t0): kappa0 else t0 := t〉 t0 = t1, ∀ t0, t2. ¬ 〈RED(t0; t'): kappa0 〉 t' = t2 ∨ t0 =>* t2 ∧ irred(t2), ¬ t =>* t1 ∨ ¬ irred(t1), tn0 = none ⊦ |
〈if tn ≠ none then RED(tn .t; t0): kappa0 else t0 := t〉 t0 = t1, 〈RED1(t; tn0): kappa0 〉 tn0 = tn, ∀ t0, t2. ¬ 〈RED(t0; t'): kappa0 〉 t' = t2 ∨ t0 =>* t2 ∧ irred(t2), ¬ t =>* t1 ∨ ¬ irred(t1), tn0 = none ⊦
[[CONCRETESIMPRULES : ()]]