anchor.diff:      | NewUnionCase (uci, exprs) ->
           ru uci (List.map re exprs)
       | NewRecord (t, exprs) ->
  -        Expr.NewRecord (rt t, List.map re exprs)
  +        rr t (List.map re exprs)
       | NewTuple (exprs) ->
           Expr.NewTuple (List.map re exprs)
       | TupleGet (expr, i) ->
  
positive.code:         failwithf "Method '%s' of type '%O' not found in '%s'" uci.Name t toAsm.Location
        Expr.Call (constructorMethod, exprs))
  
    let private replaceVar asmMappings (varTable: IDictionary<_,_>) reversePass (v: Var) =
      if v.Type.GetType() = typeof<ProvidedTypeDefinition> then v
      else replace asmMappings (v, getAssemblies v.Type) (fun toAsm ->
  
negative.code:     let rm = replaceMethod asmMappings
      let rc = replaceConstructor asmMappings
      let ru = replaceUnionCase asmMappings
      let rr = replaceRecord asmMappings
      let rv = replaceVar asmMappings varTable reversePass
      let re = replaceExpr asmMappings varTable reversePass
      
  