anchor.diff:  type Package =
       { Graph : Graph
         Package : Anthology.PackageId }
  -
  -    override this.Equals(other : System.Object) =
  -        System.Object.ReferenceEquals(this, other)
  +with
  +    override this.Equals(other : System.Object) = refEquals this other
   
       interface System.IComparable with
           member this.CompareTo(other) = compareTo this other (fun x -> x.Package)
  
positive.code: and [<CustomEquality; CustomComparison>] Application =
      { Graph : Graph
        Application : Anthology.Application } 
  
      override this.Equals(other : System.Object) =
          System.Object.ReferenceEquals(this, other)
  
      interface System.IComparable with
          member this.CompareTo(other) = compareTo this other (fun x -> x.Application.Name)
  
negative.code: and [<CustomEquality; CustomComparison>] Assembly = 
      { Graph : Graph
        Assembly : Anthology.AssemblyId }
  with
      override this.Equals(other : System.Object) = refEquals this other
  
      interface System.IComparable with
          member this.CompareTo(other) = compareTo this other (fun x -> x.Assembly)
  