(** Infinitely many non-silent transitions *)
CoInductive forever_reactive (ge: genv): state -> traceinf -> Prop :=
| forever_reactive_intro: forall s1 s2 t T,
star ge s1 t s2 -> t <> E0 -> forever_reactive ge s2 T ->
forever_reactive ge s1 (t *** T).

(* Specifications: *)
Lemma star_forever_reactive:
forall ge s1 t s2 T,
star ge s1 t s2 -> forever_reactive ge s2 T ->
forever_reactive ge s1 (t *** T).