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