anchor.diff:  
       type SqlParams = obj list
   
  +    type SqlAndParams = string * SqlParams
  +
       type LiteralType = {
           IsNull : bool
           SqlProduce : SqlParams->string
  
positive.code:         then (fun _ x -> x)
          else (fun pi inp -> customParameterValueMap.Invoke(pi,inp) )
  
  module ExpressionToSqlImpl =
      let translateFsSingle<'T>
              quoter
              (conditions:Quotations.Expr<('T -> bool)>)
              includeWhere
              customNameExtractor
              customParameterValueMap =
  
          let nameExtractor = customNameExtractor |> Option.defaultValue (fun (x:System.Reflection.MemberInfo) -> x.Name)
          let parameterValueMap = customParameterValueMap |> Option.defaultValue (fun _ x -> x)
  
negative.code:             [<Optional; DefaultParameterValue(null:Func<System.Reflection.MemberInfo,string>)>]
                  customNameExtractor,
              [<Optional; DefaultParameterValue(null:Func<System.Reflection.PropertyInfo,obj,obj>)>] 
                  customParameterValueMap,
              [<Optional; DefaultParameterValue(null:Translator.ItemInCollectionImpl)>] 
                  itemInCollGenerator) =
          
          Hlp.translateOne quoter 
              (Hlp.cneToFun customNameExtractor)
              (Hlp.cpvmToFun customParameterValueMap)
              (Hlp.iicgToOptFun itemInCollGenerator)
              conditions
              includeWhere 
  
  