anchor.diff:  
       do
           for compName in compNames do
  -            subqueries.Add (Is (Var (Constants.Ecs.IntraComponentPrefix + compName)))
  +            subqueries.Add (Tagged (Var (Constants.Ecs.IntraComponentPrefix + compName)))
   
       member inline private this.IndexStore<'c when 'c : struct and 'c :> 'c Component> compName archetypeId (stores : Dictionary<string, Store>) =
           match stores.TryGetValue compName with
  
positive.code:         let terms = archetypeSlot.Archetype.Id.Terms
          terms.[termName]
  
      member this.MutatePlus<'c when 'c : struct and 'c :> 'c Component> compName (comp : 'c) =
          let archetypeSlot = this.Ecs.IndexArchetypeSlot this
          let stores = archetypeSlot.Archetype.Stores
  
negative.code:         else false
  
  and [<NoEquality; NoComparison>] Subquery =
      | V3Ctor of Subquery * Subquery * Subquery
      | Box3Ctor of Subquery * Subquery
      | PairCtor of Subquery * Subquery
      | Tagged of Subquery
      | Eq of Subquery * Subquery
      | Gt of Subquery * Subquery
      | Ge of Subquery * Subquery
  