Module type Lattice_type.With_Diff_One

module type With_Diff_One = sig .. end

type t 
val diff_if_one : t ->
t -> t

diff_if_one t1 t2 is an over-approximation of t1-t2.