(** Receptiveness of [atomic L]. *)
Record strongly_receptive (L: semantics) : Prop :=
Strongly_receptive {
ssr_receptive: forall s ev1 t1 s1 ev2,
Step L s (ev1 :: t1) s1 ->
match_traces (symbolenv L) (ev1 :: nil) (ev2 :: nil) ->
exists s2, exists t2, Step L s (ev2 :: t2) s2;
ssr_well_behaved:
well_behaved_traces L
}.

(* Specifications: *)
Theorem atomic_receptive:
forall L, strongly_receptive L -> receptive (atomic L).
Theorem atomic_receptive:
forall L, strongly_receptive L -> receptive (atomic L).