Path_visitorsmodule Base = Compiler.Pathtype path_t = Base.t = | Pident of Ident_visitors.ident_t| Pdot of path_t * string| Papply of path_t * path_tand typath = Base.typath = | Regular of path_t| Ext of path_t * string| LocalExt of Ident_visitors.ident_t| Cstr of path_t * stringinclude sig ... endclass virtual +'b iter : object ... endinclude sig ... endclass virtual +'c map : object ... endinclude sig ... endclass virtual +'b reduce : object ... endinclude sig ... endclass +'c iter2 : object ... end