anchor.diff:  
       let getCanonicalTypeName (t : TypeReference) =
           let rec aux carry (t : TypeReference) =
  -            if t = null then carry |> String.concat "+"
  +            if t = null then String.concat "+" carry
               else
                   aux (t.Name :: carry) t.DeclaringType
   
  
positive.code:             TypeIndex : Map<string, Assembly>
          }
      with
          static member Init(a : Assembly) =
              {
                  Assembly = a
  
negative.code:                 None
  
  
      let x = SerializationSupport.RegisterSerializer <| new FsPicklerSerializer()
      let touch () = x
  
      module Map =
          let addMany (m : Map<'K,'V>) (kvs : ('K * 'V) seq) =
  