method class_str_item =
                  function
                  | (Ast.CrInh (_, _, _, ""as cst) ->
                      super#class_str_item cst
                  | Ast.CrInh (_, _, ce, s) -> (o#class_expr ce)#add_atom s
                  | Ast.CrVal (_, s, _, _, e) -> (o#expr e)#add_atom s
                  | Ast.CrVvr (_, s, _, t) -> (o#ctyp t)#add_atom s
                  | cst -> super#class_str_item cst