Glue.MinimalSemiLattice
module P : sig ... end
type property = P.property
val leq_join : property -> property -> property