Pps.Predicatemodule Param : sig ... endmodule Flag : sig ... endmodule Pp_with_flag : sig ... endtype t = [ | `present of Pp.Name.t Nonempty_list.t| `absent of Pp.Name.t Nonempty_list.t| `pp of Pp.Name.t| `flag of Flag.t| `pp_with_flag of Pp_with_flag.t ]