End MORE_NOT_INQ.
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.

(* Specifications: *)
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.
Lemma input_diff_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.
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.
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.