Verify.Category
C : Interface.CATEGORY
include sig ... end
module I : sig ... end
val identity : ('a, 'b) C.t -> bool