Module Printpat
val pretty_const : Typedtree.constant -> stringval top_pretty : 'k Typedtree.general_pattern Format_doc.printermodule Compat : sig ... endPrintpatval pretty_const : Typedtree.constant -> stringval top_pretty : 'k Typedtree.general_pattern Format_doc.printermodule Compat : sig ... end