let built_in_names =
    let klass_names = List.map (fun (f : Ast.class_def) -> get_tname f.klass) BuiltIns.built_in_classes in
    List.fold_left (fun set i -> StringSet.add i set) StringSet.empty klass_names