Patterns.Half_simple
type view = [
| Simple.view
| `Or((Typedtree.pattern, Typedtree.pattern, option(Types.row_desc)))
];
type pattern = Typedtree.pattern_data(view);