let unique ?(cmp:(entry -> entry -> bool) option) (s: set) =
    Ls.unique ?cmp s