method remove_element file =
      elements <- List.filter
          (fun t -> t.Ocvs_types.cvs_file <> file)
          elements