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_pred_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 - 1)%Z.