let exists hash elt =
       try
         find hash elt;
         true
       with _ -> false