module type With_Diff = sig .. end
sig
end
type t
val diff : t -> t -> t
t -> t -> t
diff t1 t2
t1-t2
t2