(* -- Preuve de correction *)
(* -- 1 : Le resultat de "tri_ins" est une liste sorted *)

(* Specifications: *)
Theorem sorted_ins_Cons :
forall (x : list nat) (n m : nat),
inf_egal n m = false ->
sorted (Cons nat m x) -> sorted (Cons nat m (ins n x)).
Theorem sorted_ins :
forall (n : nat) (x : list nat), sorted x -> sorted (ins n x).