val pretty_const : Asttypes.constant -> stringval top_pretty : 'k Typedtree.general_pattern Format_doc.printermodule Compat : sig ... endval pretty_const : Asttypes.constant -> stringval top_pretty : 'k Typedtree.general_pattern Format_doc.printermodule Compat : sig ... end