type desc = | Any| Construct of Data_types.constructor_description| Constant of Asttypes.constant| Tuple of string option list| Record of Data_types.label_description list| Variant of {tag : Asttypes.label;has_arg : bool;cstr_row : Types.row_desc ref;type_row : unit -> Types.row_desc;
}| Array of Asttypes.mutable_flag * int| Lazy
type t = desc Typedtree.pattern_dataval arity : t -> intval deconstruct : Simple.pattern -> t * Typedtree.pattern listdeconstruct p returns the head of p and the list of sub patterns.
val to_omega_pattern : t -> Typedtree.patternreconstructs a pattern, putting wildcards as sub-patterns.
val omega : t