anchor.diff:      let createLeftRelation (_:#INeo4jNode) (_:#INeo4jRelationship) (_:#INeo4jNode) = ()
       let createUniqueRightRelation (_:#INeo4jNode) (_:#INeo4jRelationship) (_:#INeo4jNode) = ()
       let createUniqueLeftRelation (_:#INeo4jNode) (_:#INeo4jRelationship) (_:#INeo4jNode) = ()
  -    let deleteNode (_: 'TNode when 'TNode :> INeo4jNode) = ()
  +    let deleteNode (_: 'T when 'T :> INeo4jNode) = ()
  +    let deleteRelationship (_: 'T when 'T :> INeo4jRelationship) = ()
   
       let returnResults (_: 'T): 'T = Unchecked.defaultof<'T>
   
  
positive.code: 
              printfn "MatchRelation: %s" matchExpr
              let newCypher = cypher.Match(matchExpr)
              executeRest newCypher rest
  
          | _ -> unhandledExpr q
  
  
negative.code:     let inline (|DeleteNodeCall|_|) (callExpr: Expr) =
          match callExpr with
          | SpecificCall <@ deleteNode @> (_, _, [node]) -> Some node
          | _ -> None
  
      let inline (|DeleteRelationshipCall|_|) (callExpr: Expr) =
          match callExpr with
          | SpecificCall <@ deleteRelationship @> (_, _, [rel]) -> Some rel
          | _ -> None
  
      let inline (|MatchNodeCall|_|) (callExpr: Expr) =
  