Ocaml_typing.Printpat
val pretty_const : Ocaml_parsing.Asttypes.constant -> string
val top_pretty : 'k Typedtree.general_pattern Merlin_utils.Format_doc.printer
module Compat : sig ... end