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