IF ('TOPOLOGY_SCHEMA.EDGE' IN  TYPEOF  (an_item)) THEN
     RETURN  (edge_reversed (an_item));
   END_IF;

   IF  ('TOPOLOGY_SCHEMA.PATH' IN  TYPEOF  (an_item)) THEN
     RETURN  (path_reversed (an_item));
   END_IF;

   IF  ('TOPOLOGY_SCHEMA.FACE_BOUND' IN  TYPEOF  (an_item)) THEN
     RETURN  (face_bound_reversed (an_item));
   END_IF;
  
   IF  ('TOPOLOGY_SCHEMA.FACE' IN  TYPEOF  (an_item)) THEN
     RETURN  (face_reversed (an_item));
   END_IF;

   IF  ('TOPOLOGY_SCHEMA.SHELL' IN  TYPEOF  (an_item)) THEN
     RETURN  (shell_reversed (an_item));
   END_IF;

   IF  ('SET' IN  TYPEOF  (an_item)) THEN
     RETURN  (set_of_topology_reversed (an_item));
   END_IF;

   IF ('LIST' IN TYPEOF (an_item)) THEN
     RETURN  (list_of_topology_reversed (an_item));
   END_IF;

   RETURN (?);