anchor.diff:          this.Application.Projects |> Set.map (fun x -> this.Graph.ProjectMap.[x])
   
       member this.Delete () =
  -        let newAntho = { this.Graph.Anthology 
  +        let newAntho = { this.Graph.Anthology
                            with Applications = this.Graph.Anthology.Applications |> Set.remove this.Application }
           Graph(newAntho)
   
  
positive.code:     member this.Uri = this.Repository.Url.toString
  
      member this.Projects =
          let repositoryId = this.Repository.Name
          this.Graph.Anthology.Projects |> Set.filter (fun x -> x.Repository = repositoryId)
                                        |> Set.map (fun x -> this.Graph.ProjectMap.[x.ProjectId])
  
      member this.IsCloned =
          let wsDir = Env.GetFolder Env.Folder.Workspace
          let repoDir = wsDir |> IoHelpers.GetSubDirectory this.Name
          repoDir.Exists
  
      member this.References = 
          this.Projects |> Set.map (fun x -> x.References |> Set.map (fun y -> y.Repository))
                        |> Set.unionMany
                        |> Set.remove this
  
      member this.ReferencedBy = 
          this.Projects |> Set.map (fun x -> x.ReferencedBy |> Set.map (fun y -> y.Repository))
                        |> Set.unionMany
                        |> Set.remove this
  
      static member Closure (seeds : Repository set) =
          Algorithm.Closure seeds (fun x -> x.References) (fun x -> x.ReferencedBy)
  
negative.code:     member this.Delete () =
          let repositoryId = this.Repository.Name
          let newAntho = { this.Graph.Anthology
                           with Repositories = this.Graph.Anthology.Repositories |> Set.filter (fun x -> x.Repository.Name <> repositoryId)
                                Projects = this.Graph.Anthology.Projects |> Set.filter (fun x -> x.Repository <> repositoryId) }
          Graph(newAntho)
  
  