anchor.diff:  
   #nowarn "0346" // GetHashCode missing
   
  +
  +let compareTo<'T, 'U> (this : 'T) (other : System.Object) (field : 'T -> 'U) =
  +    match other with
  +    | :? 'T as x -> System.Collections.Generic.Comparer<'U>.Default.Compare(field this, field x)
  +    | _ -> failwith "Can't compare values with different types"
  +
  +
   [<RequireQualifiedAccess>] 
   type PackageVersion =
       | PackageVersion of string
  
positive.code:         System.Object.ReferenceEquals(this, other)
  
      interface System.IComparable with
          member this.CompareTo(other) =
              match other with
              | :? Baseline as x -> System.Collections.Generic.Comparer<Anthology.Baseline>.Default.Compare(this.Baseline, x.Baseline)
              | _ -> failwith "Can't compare values with different types"
  
      member this.IsIncremental = false
      
  
negative.code:         System.Object.ReferenceEquals(this, other)
  
      interface System.IComparable with
          member this.CompareTo(other) = compareTo this other (fun x -> x.Bookmark.Repository)
  
      member this.Repository =
          this.Graph.RepositoryMap.[this.Bookmark.Repository]
  