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