sig
  val pr_constant : Format.formatter -> Asttypes.constant -> unit
  val string_of_constant : Asttypes.constant -> string
  val pr_structure_sep : Format.formatter -> unit
  val is_infix : string -> bool
  val is_infix_longident : Longident.t -> bool
  val pr_ident_in_infix_position : Format.formatter -> Longident.t -> unit
  val pr_ident_name_in_prefix_position : Format.formatter -> string -> unit
  val pr_ident_in_prefix_position : Format.formatter -> Longident.t -> unit
  val pr_core_type : Format.formatter -> Parsetree.core_type -> unit
  val pr_value_description :
    Format.formatter -> Parsetree.value_description -> unit
  val pr_type_definitions :
    Format.formatter -> (string * Parsetree.type_declaration) list -> unit
  val pr_type : Format.formatter -> string * string list -> unit
  val pr_relation : Format.formatter -> Parsetree.relation -> unit
  val pr_params : Format.formatter -> string list -> unit
  val pr_expression : Format.formatter -> Parsetree.expression -> unit
  val pr_pattern : Format.formatter -> Parsetree.pattern -> unit
  val pr_verbatim_structure_item :
    Format.formatter -> Parsetree.structure_item -> unit
  val pr_verbatim_structure_items :
    Format.formatter -> Parsetree.structure_item list -> unit
  val pr_structure_item_desc :
    Format.formatter -> Parsetree.structure_item_desc -> unit
  val pr_suffix_vals_fmt :
    (unit, Format.formatter, unit) Pervasives.format ->
    (Format.formatter -> '-> unit) -> Format.formatter -> 'a list -> unit
  val pr_sep_vals_fmt :
    (unit, Format.formatter, unit) Pervasives.format ->
    (Format.formatter -> '-> unit) -> Format.formatter -> 'a list -> unit
  val pr_sep_vals :
    string ->
    (Format.formatter -> '-> unit) -> Format.formatter -> 'a list -> unit
end