Ast_pattern.Packed
type ('a, 'b) t
val create : ('a, 'b, 'c) t -> 'b -> ('a, 'c) t
val parse : ('a, 'b) t -> Location.t -> 'a -> 'b