anchor.diff:          if not install then this else
           { this with Frameworks = 
                        match Map.tryFind framework this.Frameworks with
  -                     | Some files -> Map.add framework (Set.add lib files) this.Frameworks
  -                     | None -> Map.add framework (Set.singleton lib) this.Frameworks }
  +                     | Some files -> Map.add framework (files.AddReference lib) this.Frameworks
  +                     | None -> Map.add framework (InstallFiles.empty.AddReference lib) this.Frameworks }
   
       member this.Add (libs,references) : InstallModell =         
           libs |> List.fold (fun model lib -> 
  
positive.code:                 otherProfiles 
                  |> Array.fold (fun (model : InstallModell) framework -> 
                          match Map.tryFind framework model.Frameworks with
                          | Some files when Set.isEmpty files |> not -> model
                          | _ -> { model with Frameworks = Map.add framework newFiles model.Frameworks }) model) this
  
      member this.Process() =
          this
  
negative.code: 
              let target = DotNetFramework(Framework FrameworkVersionNo.V1,Full)
              match Map.tryFind target this.Frameworks with
              | Some files when Set.isEmpty files.References |> not -> this
              | _ -> { this with Frameworks = Map.add target { References = newFiles; ContentFiles = Set.empty} this.Frameworks }
  
          { model with Frameworks = model.Frameworks |> Map.remove genericFramework } 
  
  