module type InputDomain = sig .. end
sig
end
include Datatype.S
val top : t
t
val join : t -> t -> t
t -> t -> t