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.

Lemma not_in_q_input :
forall (data : Set) (d' d : data) (q : queue data),
d <> d' -> ~ In_queue data d (input data d' q) -> ~ In_queue data d q.