Printpat
val pretty_const : Asttypes.constant -> string
val top_pretty : Format.formatter -> 'k Typedtree.general_pattern -> unit
val pretty_pat : 'k Typedtree.general_pattern -> unit
val pretty_line : Format.formatter -> 'k Typedtree.general_pattern list -> unit
val pretty_matrix :
Format.formatter ->
'k Typedtree.general_pattern list list ->
unit