anchor.diff:      member this.ToArray () =
           let elements = ResizeArray ()
   
  -        this.Iter (fun x y ->
  -            elements.Add (x, y))
  +        this.Iterate <| fun x y ->
  +            elements.Add (x, y)
   
           ResizeArray.toArray elements
  +
  +    //
  +    member internal this.LeftKvpArray () : KeyValuePair<'T1, 'T2>[] =
  +        let elements = ResizeArray (1024)
  +
  +        this.Iterate <| fun x y ->
  +            elements.Add (
  +                KeyValuePair (x, y))
  +
  +        elements.ToArray ()
  +
  +    //
  +    member internal this.RightKvpArray () : KeyValuePair<'T2, 'T1>[] =
  +        let elements = ResizeArray (1024)
  +
  +        this.Iterate <| fun x y ->
  +            elements.Add (
  +                KeyValuePair (y, x))
  +
  +        elements.ToArray ()
  +
  +//
  +and [<Sealed>]
  +    internal BimapDebuggerProxy<'T1, 'T2
  +        when 'T1 : comparison and 'T2 : comparison> (bimap : Bimap<'T1, 'T2>) =
  +
  +    [<DebuggerBrowsable(DebuggerBrowsableState.Collapsed)>]
  +    member __.Left
  +        with get () : KeyValuePair<'T1, 'T2>[] =
  +            bimap.LeftKvpArray ()
  +
  +    [<DebuggerBrowsable(DebuggerBrowsableState.Collapsed)>]
  +    member __.Right
  +        with get () : KeyValuePair<'T2, 'T1>[] =
  +            bimap.RightKvpArray ()
   
   /// Functional programming operators related to the Bimap<_,_> type.
   [<RequireQualifiedAccess; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  
positive.code: //
  namespace ExtCore.Collections
  
  open System.Diagnostics
  open LanguagePrimitives
  open OptimizedClosures
  
negative.code: /// A bi-directional map.
  [<Sealed>]
  [<NoEquality; NoComparison>]
  [<DebuggerTypeProxy(typedefof<BimapDebuggerProxy<int,int>>)>]
  [<DebuggerDisplay("Count = {Count}")>]
  type Bimap<'T1, 'T2
      when 'T1 : comparison
  