let location_of_ele = function
    ME e -> location_of_module_element e
  | CE e -> location_of_class_element e