Event.PH
type t
= pattern_head
val compare : t -> t -> int
val equal : t -> t -> bool
val hash : t -> int
val print : t CCFormat.printer
module Map : CCMap.S with type Map.key = t