Patterns.Simpletype view = [ | `Any |
| `Constant of Asttypes.constant |
| `Tuple of Typedtree.pattern list |
| `Construct of Longident.t Asttypes.loc * Types.constructor_description * Typedtree.pattern list |
| `Variant of Asttypes.label * Typedtree.pattern option * Types.row_desc ref |
| `Record of (Longident.t Asttypes.loc * Types.label_description * Typedtree.pattern) list * Asttypes.closed_flag |
| `Array of Typedtree.pattern list |
| `Lazy of Typedtree.pattern |
]type pattern = view Typedtree.pattern_dataval omega : [> view ] Typedtree.pattern_data