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 input_S_card :
forall (d d' : data) (q : queue data),
d = d' ->
card data eq_data_dec d (input data d' q) =
(card data eq_data_dec d q + 1)%Z.