(** * Program behaviors for the "atomic" construction *)
Section ATOMIC.
Variable L: semantics.
Hypothesis Lwb: well_behaved_traces L.
Remark atomic_finish: forall s t, output_trace t -> Star (atomic L) (t, s) t (E0, s).

Lemma atomic_forever_silent_forever_silent:
forall s, Forever_silent (atomic L) s -> Forever_silent L (snd s).