Verify.Comonad
C : Interface.COMONAD
include sig ... end
val identity : ('a C.t C.t -> 'a C.t) -> 'a C.t C.t -> bool