| t1 _ t2 = C[K _ v _ v0], value(v), value(v0), context(C), ∀ t'. ¬ t1 => t' ⊦ value(t1), ∃ v1, v2, v3. t1 _ t2 = S _ v1 _ v2 _ v3 ∧ C[v] = v1 _ v3 _ (v2 _ v3) ∧ value(v1) ∧ value(v2) ∧ value(v3), ∃ v2. t1 _ t2 = K _ C[v] _ v2 ∧ value(C[v]) ∧ value(v2) |
C = C0 _ v4, t1 _ t2 = C[K _ v _ v0], value(v), value(v0), context(C), ∀ t'. ¬ t1 => t' ⊦ value(t1), ∃ v1, v2, v3. t1 _ t2 = S _ v1 _ v2 _ v3 ∧ C[v] = v1 _ v3 _ (v2 _ v3) ∧ value(v1) ∧ value(v2) ∧ value(v3), ∃ v2. t1 _ t2 = K _ C[v] _ v2 ∧ value(C[v]) ∧ value(v2)
[[CONCRETESIMPRULES : ([CSIMPGEN : rawctxt generated by o, _, _;], [CSIMPSEQ : ⊦ context(O)], [CSIMPSEQ : ⊦ O[t] = t], [CSIMPSEQ : ⊦ (t1 _ C)[t] = t1 _ C[t]], [CSIMPSEQ : ⊦ t _ t0 = t1 _ t2 ↔ t = t1 ∧ t0 = t2], [CSIMPSEQ : ⊦ context(t _ C) ↔ ¬ ¬ (context(C) ∧ value(t))])]]