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