anchor.diff:          let app = { Anthology.Application.Name = Anthology.ApplicationId.from name
                       Anthology.Application.Publisher = pub
                       Anthology.Application.Projects = projectIds }
  -        let newAntho = { anthology 
  +        let newAntho = { anthology
                            with Applications = anthology.Applications |> Set.add app }
           Graph(newAntho)
   
  
positive.code:         this.Graph.Anthology.Projects |> Set.filter (fun x -> x.ProjectReferences |> Set.contains projectId)
                                        |> Set.map (fun x -> this.Graph.ProjectMap.[x.ProjectId])
  
      member this.ProjectFile = 
          this.Project.RelativeProjectFile.toString
  
      member this.Output = this.Graph.AssemblyMap.[this.Project.Output]
  
      member this.BinFile = 
          let repo = this.Repository.Name
          let path = System.IO.Path.GetDirectoryName(this.ProjectFile)
          let ass = this.Output.Name
  
negative.code:         this.Application.Projects |> Set.map (fun x -> this.Graph.ProjectMap.[x])
  
      member this.Delete () =
          let newAntho = { this.Graph.Anthology
                           with Applications = this.Graph.Anthology.Applications |> Set.remove this.Application }
          Graph(newAntho)
  
  