anchor.diff:  
       abstract Disjunction : Dictionary<string, 'w System> -> Guid -> 'w Ecs -> unit
   
  -    override this.RegisterEntity entityId ecs =
  +    override this.RegisterEntity entityId _ ecs =
           match Dictionary.tryGetValue entityId this.Correlations with
           | (false, _) ->
               let junctions = this.GetJunctions ecs
  
positive.code:     member this.JunctionEntityExplicit<'t, 'w when 't : struct and 't :> Component>
          (systemName : string) (junctions : Dictionary<string, 'w System>) (entityId : Guid) =
          let system = junctions.[systemName] :?> SystemCorrelated<'t, 'w>
          let index = system.RegisterEntity entityId this
          ComponentRef.make index system.Components
  
      member this.JunctionEntity<'t, 'w when 't : struct and 't :> Component>
  
negative.code:         let system = Option.get systemOpt
          &system.GetComponent 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 comp
              match correlations.TryGetValue entityId with
              | (true, correlation) -> correlation.Add systemName
              | (false, _) -> correlations.Add (entityId, List [systemName])
  