Make.P
type property
val bottom : property
val equal : property -> property -> bool
val is_maximal : property -> bool