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