Ast_helper.CiClasses
val mk : ?loc:loc -> ?attrs:attrs -> ?virt:Migrate_parsetree.Ast_412.Asttypes.virtual_flag -> ?params:(Migrate_parsetree.Ast_412.Parsetree.core_type * (Migrate_parsetree.Ast_412.Asttypes.variance * Migrate_parsetree.Ast_412.Asttypes.injectivity)) list -> str -> 'a -> 'a Migrate_parsetree.Ast_412.Parsetree.class_infos