(* -- 2 : Le resultat de "tri_ins" est une permutation de son entree *)
(*   ie : meme nombre d'occurrences de chaque element                *)

Theorem nocc_Cons :
forall (n m : nat) (x y : list nat),
nocc n x = nocc n y -> nocc n (Cons nat m x) = nocc n (Cons nat m y).