module type InputDomain = sig .. end
sig
end
include Abstract_domain.Lattice
include Datatype.S
val storage : unit -> bool
unit -> bool