anchor.diff:                  if this.Components.[index].RefCount = 0 then this.FreeList.Add index |> ignore
               else this.FreeIndex <- dec this.FreeIndex
               comp.Disjunction junctions entityId ecs
  +            let _ : bool = this.Correlations.Remove entityId
  +            let _ : bool = this.CorrelationsBack.Remove index
  +            if  this.Components.Length < this.FreeList.Count * 2 &&
  +                this.Components.Length > Constants.Ecs.ArrayReserve then
  +                this.Compact ()
               true
           | (false, _) -> false
   
  
positive.code:                 components.[index].RefCount <- dec components.[index].RefCount
                  if components.[index].RefCount = 0 then freeList.Add index |> ignore
              else freeIndex <- dec freeIndex
              true
          | (false, _) -> false
  
  
negative.code:                     if i = 0 then
                          comp.RefCount <- inc comp.RefCount
                          this.Correlations.Add (entityId, index)
                          this.CorrelationsBack.Add (index, entityId)
                      else this.PreDeque.Add index |> ignore
                      this.Components.Array.[index] <- comp
  
  