Patterns.Half_simple
type view = [
|
Simple.view
`Or of Typedtree.pattern * Typedtree.pattern * Types.row_desc option
]
type pattern = view Typedtree.pattern_data