Ast_helper.Cstr
val mk : Parsetree.pattern option -> Parsetree.class_field list -> Parsetree.class_structure