anchor.diff:                  match World.trySynchronizeFacetsToNames oldFacetNames entityState (Some entity) world with
                   | Right (entityState, world) ->
                       let oldWorld = world
  -                    let facetNames = World.getEntityFacetNamesReflectively entityState
  +                    let facetNames = World.getFacetNamesReflectively entityState
                       let entityState = Overlayer.applyOverlay6 EntityState.copy overlayName overlayName facetNames entityState oldOverlayer overlayer
                       let world = World.setEntityState entityState entity world
                       World.updateEntityInEntityTree entity oldWorld world
  
positive.code:                 facetNamesToAdd
  
          static member internal trySetFacetNames facetNames entityState optEntity world =
              let intrinsicFacetNames = World.getEntityIntrinsicFacetNames entityState
              let extrinsicFacetNames = Set.fold (flip Set.remove) facetNames intrinsicFacetNames
              let facetNamesToRemove = World.getFacetNamesToRemove entityState.FacetNames extrinsicFacetNames
              let facetNamesToAdd = World.getFacetNamesToAdd entityState.FacetNames extrinsicFacetNames
              match World.tryRemoveFacets facetNamesToRemove entityState optEntity world with
              | Right (entityState, world) -> World.tryAddFacets facetNamesToAdd entityState optEntity world
              | Left _ as left -> left
  
          static member internal trySynchronizeFacetsToNames oldFacetNames entityState optEntity world =
              let facetNamesToRemove = World.getFacetNamesToRemove oldFacetNames entityState.FacetNames
              let facetNamesToAdd = World.getFacetNamesToAdd oldFacetNames entityState.FacetNames
              match World.tryRemoveFacets facetNamesToRemove entityState optEntity world with
              | Right (entityState, world) -> World.tryAddFacets facetNamesToAdd entityState optEntity world
              | Left _ as left -> left
  
negative.code:                 | Some overlayName ->
                      // OPTIMIZATION: applying overlay only when it will change something
                      if dispatcherName <> overlayName then
                          let facetNames = World.getFacetNamesReflectively entityState
                          Overlayer.applyOverlay EntityState.copy dispatcherName overlayName facetNames entityState overlayer
                      else entityState
                  | None -> entityState
  