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