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