sig val mk : Ast_404.Parsetree.pattern -> Ast_404.Parsetree.class_field list -> Ast_404.Parsetree.class_structure end