let rec ajoute = fun (x:fabricant list) (y:fabricant list) ->
 match x with
 | [] -> y
 | z :: q ->
  begin
   if List.exists ( function w -> cmp w z = 0 ) y then
    ajoute q y
   else
    z :: ( ajoute q y )
  end