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