| 〈RED1(t0 _ t1; tn3)〉 tn3 = tn0, ∀ n0, t, tn1, tn0. n0 < m + 1 → (〈RED1(t; tn3): n0 〉 tn3 = tn1 ∧ 〈RED1(t; tn3)〉 tn3 = tn0 ∧ tn0 ≠ tn1 → false), t2 = K, tn0 ≠ some(t3), m ≠ 0, ap(t0), value(t3), value(t1), t0 = t2 _ t3 ⊦ |
〈RED1(K _ t3 _ t1; tn3)〉 tn3 = tn0, ∀ n0, t, tn1, tn0. n0 < m + 1 → (〈RED1(t; tn3): n0 〉 tn3 = tn1 ∧ 〈RED1(t; tn3)〉 tn3 = tn0 ∧ tn0 ≠ tn1 → false), tn0 ≠ some(t3), m ≠ 0, value(t3), value(t1) ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ap(t _ t0)])]]