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

(* Specifications: *)
Theorem nocc_Cons_Cons :
forall (n m p : nat) (x : list nat),
nocc n (Cons nat m (Cons nat p x)) = nocc n (Cons nat p (Cons nat m x)).
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).
Theorem nocc_ins :
forall (x : list nat) (n m : nat), nocc n (ins m x) = nocc n (Cons nat m x).
Theorem nocc_tri_ins :
forall (x : list nat) (n : nat), nocc n x = nocc n (tri_ins x).