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.
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.