let rec szukajArt2 u = function
   | [] -> false
   | (k, (n, c)) :: baza_ogon -> if u = k then true else (szukajArt2 u baza_ogon);

let rec duplikaty(lista:rejestr) =
   match lista with;
   | (k, (n, c))::tail -> if (szukajArt2 k tail) then true else duplikaty(tail)
   | [] -> false