| ∀ n0, t', t. n0 < 0 → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t0)〉 t0 = t'), irred(t') ⊦ 〈RED(t'; t0)〉 t0 = t' |
⊦
∀ n0, t', t. n0 < 0 → (irred(t') ∧ (=> ^ n0)(t, t') → 〈RED(t; t0)〉 t0 = t'), irred(t') ⊦ 〈let tn = none in { RED1(t'; tn) ; if tn ≠ none then RED(tn .t; t1) else t1 := t' }〉 t1 = t'
[[CONCRETESIMPRULES : ()]]