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