Verify.Bounded_Join_Semilattice
J : Interface.BOUNDED_JOIN_SEMILATTICE
include sig ... end
val identity : J.t -> bool