anchor.diff:  and [<CustomEquality; CustomComparison>] Application =
       { Graph : Graph
         Application : Anthology.Application } 
  -
  -    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.Application.Name)
  
positive.code: and [<CustomEquality; CustomComparison>] Repository =
      { Graph : Graph
        Repository : Anthology.Repository }
  
      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.Repository.Name)
  
negative.code:     { Graph : Graph
        View : Anthology.View }
  with
      override this.Equals(other : System.Object) = refEquals this other
  
      interface System.IComparable with
          member this.CompareTo(other) = compareTo this other (fun x -> x.View)
  