Section IN_Q_EFFECT.
(* consequence sur l'appartenance *)

Lemma in_collect :
forall (m : Message) (bom : Bag_of_message) (s1 s2 s3 s4 : Site),
In_queue Message m (Collect_message bom s1 s2 s3 s4) ->
In_queue Message m (bom s3 s4).