method display_string_of_ele = function
        ME (Element_module m) ->
          Printf.sprintf "module %s" (N.simple m.m_name)
      |        ME (Element_module_type m) ->
          Printf.sprintf "module type %s" (N.simple m.mt_name)
      |        ME (Element_included_module m) ->
          "<include>"
      |        ME (Element_class c) ->
          Printf.sprintf "class %s" (N.simple c.cl_name)
      |        ME (Element_class_type c) ->
          Printf.sprintf "class type %s" (N.simple c.clt_name)
      |        ME (Element_value v) ->
          Printf.sprintf "val %s" (N.simple v.val_name)
      |        ME (Element_type t) ->
          Printf.sprintf "type %s" (N.simple t.ty_name)
      |        ME (Element_exception e) ->
          Printf.sprintf "exception %s" (N.simple e.ex_name)
      |        ME (Element_module_comment t) ->
          Odoc_info.string_of_text t
      |        CE (Class_attribute a) ->
          Printf.sprintf "val %s" (N.simple a.att_value.val_name)
      |        CE (Class_method m) ->
          Printf.sprintf "method %s" (N.simple m.met_value.val_name)
      |        CE (Class_comment t) ->
          Odoc_info.string_of_text t