Remark star_atomic_output_trace:
forall s t t' s',
Star (atomic L) (E0, s) t (t', s') -> output_trace t'.

(* Specifications: *)
Lemma atomic_forever_reactive_forever_reactive:
forall s T, Forever_reactive (atomic L) (E0,s) T -> Forever_reactive L s T.
Theorem atomic_behaviors:
forall beh, program_behaves L beh <-> program_behaves (atomic L) beh.