Section BELONG.
(* quelques lemmes sur des considerations plus dynamiques, l'existence d'un element dans la liste apres ajout ou retrait d'un element *)
Variable data : Set.
Hypothesis eq_data_dec : eq_dec data.

Lemma equality_from_queue_membership :
forall (x y : data) (q : queue data),
In_queue data y q -> ~ In_queue data x q -> x <> y.