Section OCCUR.
(* considerations dynamiques sur l'evolution du nombre d'occurence d'un element dans la liste apres ajout ou retrait *)
Variable data : Set.
Hypothesis eq_data_dec : eq_dec data.

Lemma firstout_diff_card :
forall (d : data) (q : queue data),
first data q <> value data d ->
card data eq_data_dec d (first_out data q) = card data eq_data_dec d q.