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