anchor.diff:              yield! [ for e in i.Elements do
                           yield (e.Name, i.Name) ] ]
           |> Seq.groupBy fst
  -        |> Seq.map (fun (key, group) -> (key, Seq.map snd group))
  -        |> Seq.map (fun (key, group) ->
  +        |> Seq.map ((fun (key, group) -> (key, Seq.map snd group)) >> fun (key, group) ->
               key,
               match Seq.length group with
               | 1 -> Seq.head group
  
positive.code:                 | "timeout" -> "ProgressEvent"
                  | _ -> e.Type
              (e.Name, eType))
          |> Map.ofList
  
      let eNameToETypeWithoutCase =
          eNameToEType
          |> Map.toList
          |> List.map (fun (k, v) -> (k.ToLower(), v))
          |> Map.ofList
  
      let getEventTypeInInterface eName (i: Browser.Interface) =
  
negative.code:         |> Array.filter (matchInterface i.Name)
          |> Array.iter emitIndexerFromJson
  
      let EmitInterfaceEventMap (i:Browser.Interface) =
          let emitInterfaceEventMapEntry (eHandler: EventHandler)  =
              let eventType =
                  getEventTypeInInterface eHandler.EventName i
  