ppx_compare Dom

Reviewed By: cristianoc

Differential Revision: D4232418

fbshipit-source-id: 739d1b7

infer/src/backend/dom.ml

@@ -67,11 +67,7 @@ let do_side side f e1 e2 =
 
 module EPset = Set.Make
     (struct
-      type t = Exp.t * Exp.t
+      type t = Exp.t * Exp.t [@@deriving compare]
-      let compare (e1, e1') (e2, e2') =
-        match (Exp.compare e1 e2) with
-        | i when i <> 0 -> i
-        | _ -> Exp.compare e1' e2'
     end)
 
 (** {2 Module for maintaining information about noninjectivity during join} *)