anchor.diff:      member this.GetEntities () =
           correlations.Keys :> _ IEnumerable
   
  -    abstract member RegisterEntity : Guid -> 'w Ecs -> int
  -    default this.RegisterEntity entityId _ =
  +    abstract member RegisterEntity : Guid -> 't -> 'w Ecs -> int
  +    default this.RegisterEntity entityId comp _ =
           match Dictionary.tryGetValue entityId correlations with
           | (false, _) ->
  -            let comp = Unchecked.defaultof<'t>
               if freeList.Count = 0 then
                   if freeIndex < components.Length - 1 then
                       components.[freeIndex] <- comp
  
positive.code: 
      abstract Disjunction : Dictionary<string, 'w System> -> Guid -> 'w Ecs -> unit
  
      override this.RegisterEntity entityId ecs =
          match Dictionary.tryGetValue entityId this.Correlations with
          | (false, _) ->
              let junctions = this.GetJunctions ecs
  
negative.code:         let componentMulti = &this.GetComponent entityId
          componentMulti.Entries.[multiId]
  
      member this.RegisterMulti multiId entityId comp ecs =
          let _ = this.RegisterEntity entityId ecs
          let componentMulti = &this.GetComponent entityId
          do componentMulti.RegisterComponent (multiId, comp)
          multiId
  
      member this.UnregisterMulti multiId entityId ecs =
  