Attribute.Floatingmodule Context : sig ... endval declare : string -> 'a Context.t -> (Migrate_parsetree.Ast_412.Parsetree.payload, 'b, 'c) Ast_pattern.t -> 'b -> ('a, 'c) tval name : (_, _) t -> stringval convert : ('a, 'b) t list -> 'a -> 'b option