Section TRACEINF_REACTS.
Variable s0: state L.
Hypothesis reacts:
forall s1 t1, Star L s0 t1 s1 ->
exists s2, exists t2, Star L s1 t2 s2 /\ t2 <> E0.

Lemma reacts':
forall s1 t1, Star L s0 t1 s1 ->
{ s2 : state L & { t2 : trace | Star L s1 t2 s2 /\ t2 <> E0 } }.