anchor.diff:                      | "subset" -> "isSubsetOf"
                       | "equal" -> "isEqualTo"
                       | s -> s
  -                let firstSetVar = sprintf "let set1 = %s" (this.RenderSet canonicalDataCase "set1")
  -                let secondSetVar = sprintf "let set2 = %s" (this.RenderSet canonicalDataCase "set2")
  +                let firstSetVar = sprintf "let set1 = %s" (this.RenderSet canonicalDataCase.Input.["set1"])
  +                let secondSetVar = sprintf "let set2 = %s" (this.RenderSet canonicalDataCase.Input.["set2"])
                   let resultVar = sprintf "let %s = CustomSet.%s set1 set2" this.SutName methodName
                   [ firstSetVar; secondSetVar; resultVar ]
               | _ -> 
  
positive.code: 
          match canonicalDataCase.Property with
          | "add" | "intersection" | "difference" | "union" -> 
              let expectedSetVar = sprintf "let expectedSet = %s" (this.RenderSet canonicalDataCase "expected")
              let actualBoolVar = sprintf "let %sBool = CustomSet.isEqualTo %s expectedSet" this.SutName this.SutName
              arrangeLines @ [ expectedSetVar; actualBoolVar ]
          | _ -> arrangeLines
  
negative.code:         let arrangeLines =
              match canonicalDataCase.Property with
              | "empty" ->
                  let setValue = this.RenderSet canonicalDataCase.Input.["set"]
                  [ sprintf "let %s = CustomSet.isEmpty (%s)" this.SutName setValue ]
              | "add" | "contains" ->
                  let methodName = 
                      match canonicalDataCase.Property with
                      | "add" -> "insert"
                      | s -> s
                  let setVar = sprintf "let setValue = %s" (this.RenderSet canonicalDataCase.Input.["set"])
                  let valueVar = sprintf "let element = %s" (formatValue canonicalDataCase.Input.["element"])
                  let resultVar = sprintf "let %s = CustomSet.%s element setValue" this.SutName methodName 
                  [ setVar; valueVar; resultVar ]
              | "intersection" | "difference" | "union" | "disjoint" | "subset" | "equal" ->
  