anchor.diff:          let system = Option.get systemOpt
           &system.GetComponent entityId
   
  -    member this.RegisterEntity<'t when 't : struct and 't :> Component> systemName entityId =
  +    member this.RegisterEntity<'t when 't : struct and 't :> Component> systemName entityId comp =
           match this.TryGetSystem<SystemCorrelated<'t, 'w>> systemName with
           | Some system ->
  -            let _ = system.RegisterEntity entityId
  +            let _ = system.RegisterEntity entityId comp
               match correlations.TryGetValue entityId with
               | (true, correlation) -> correlation.Add systemName
               | (false, _) -> correlations.Add (entityId, List [systemName])
  
positive.code:             and set value = this.RefCount <- value
      member this.Components
          with get () = this.Entries.Values :> 't OneOf IEnumerable
      member this.RegisterComponent multiId =
          this.Entries.Add (multiId, { OneOf = Unchecked.defaultof<'t> })
      member this.UnregisterComponent multiId =
          this.Entries.Remove multiId
  
  
negative.code:         let oneOf = system.GetMulti multiId entityId
          &oneOf.OneOf
  
      member this.RegisterMulti<'t when 't : struct and 't :> Component> systemName entityId comp =
          match this.TryGetSystem<SystemMulti<'t, 'w>> systemName with
          | Some system ->
              let _ = system.RegisterMulti entityId comp
              match correlations.TryGetValue entityId with
              | (true, correlation) -> correlation.Add systemName
              | (false, _) -> correlations.Add (entityId, List [systemName])
  