anchor.diff:  
       let mutable freeIndex = 0
       let freeList = hashSetPlus<int> HashIdentity.Structural []
  -    let stores = dictPlus<string, Store> HashIdentity.Structural []
  +    let stores = dictPlus<string, Store> StringComparer.Ordinal []
   
       do
           let storeTypeGeneric = typedefof<EntityId Store>
  
positive.code:         this.FreeIndex index
  
      member this.GetComponents index =
          let comps = dictPlus<string, obj> HashIdentity.Structural []
          for storeEntry in stores do
              comps.Add (storeEntry.Key, storeEntry.Value.[index])
          comps
  
negative.code:                 | (false, _) -> result <- false
              result
          else false
      static member dict entries = dictPlus<string, Term> StringComparer.Ordinal entries
      static member singleton termName term = Term.dict [(termName, term)]
      static member zero = Term.dict []
  
  