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