PrecCompare.Make
module D : Lattice.S
val compare : ?verbose:bool -> ?name1:string -> ?name2:string -> D.t -> D.t -> Comparison.t * Pretty.doc