let contains_dup ?compare lst = length (dedup ?compare lst) <> length lst