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