Module type Lattice_type.With_Diff

module type With_Diff = sig .. end

type t 
val diff : t ->
t -> t

diff t1 t2 is an over-approximation of t1-t2. t2 must be an under-approximation or exact.