Section BAG.
(* l'ensemble des messages est distribue sur les files d'attente, ceci pour respecter la contrainte que les messages entre deux sites sont recus dans l'ordre dans lequel ils sont emis *)
Definition Bag_of_message := Site -> Site -> queue Message.
Definition card_mess (m : Message) (q : queue Message) :=
card Message eq_message_dec m q.

Lemma strct_pos_card_mess :
forall (m : Message) (q : queue Message),
In_queue Message m q -> (card_mess m q > 0)%Z.