anchor.diff:  
       member this.Id = archetypeId
       member this.Length = freeIndex
  +    member this.EntityIdStore = entityIdStore
       member this.Stores = stores
       member this.ComponentNames = hashSetPlus StringComparer.Ordinal stores.Keys
   
  
positive.code:         if  not (archetypes.ContainsKey archetype.Id) &&
              Subquery.evalMany archetype.Id.Terms subqueries then
              archetypes.Add (archetype.Id, archetype)
  
      member this.Iterate (statement : Statement<'c, 'w>, ?compName, ?world : 'w) : 'w =
          let mutable world = Option.getOrDefault Unchecked.defaultof<'w> world
  
negative.code: 
      new (intraComponents, subterms : Map<string, Term>) =
          ArchetypeId
              (let intraterms = intraComponents |> Seq.map (fun (compName, compTy) -> (Constants.Ecs.IntraComponentPrefix + compName, Intra (compName, compTy))) |> Map.ofSeq
               intraterms @@ subterms)
  
      new (intraComponentTypes : Type seq, subterms : Map<string, Term>) =
  