module type Join_Semi_Lattice = Lattice_type.Join_Semi_Lattice
Lattice_type.Join_Semi_Lattice
include Datatype.S
val join : t -> t -> t
t -> t -> t
val is_included : t -> t -> bool
t -> t -> bool